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MAIN ROM 






ADDR 








0000 


F3 


DI 




0001 


AF 


XOR 


A 


0002 


C31530 


JP 


3015H 


0005 


C30040 


JP 


4000H 


0008 


C30040 


JP 


4000H 


OOOB 


El 


POP 


HL 


OOOC 


E9 


JP 


(HL) 


OOOD 


C31230 


JP 


3012H 


0010 


C30340 


JP 


4003H 


0013 


C5 


PUSH 


BC 


0014 


0601 


LD 


B, OIH 


0016 


182E 


JR 


0046H 


0018 


C30640 


JP 


4006H 


OOIB 


C5 


PUSH 


BC 


OOIC 


0602 


LD 


B,02H 


OOIE 


1826 


JR 


0046H 


0020 


C30940 


JP 


4009H 


0023 


C5 


PUSH 


BC 


0024 


0604 


LD 


B, 04H 


0026 


181E 


JR 


0046H 


0028 


C30C40 


JP 


400CH 


002B 


111540 


LD 


DE,4015H 


002E 


18E3 


JR 


0013H 


0030 


C30F40 


JP 


400FH 


0033 


111D40 


LD 


DE,401DH 


0036 


18E3 


JR 


OOIBH 


0038 


C31240 


JP 


4012H 


003B 


112540 


LD 


DE,4025H 


003E 


18DB 


JR 


OOIBH 


0040 


C3D905 


JP 


05D9H 


0043 


C9 


RET 




0044 


00 


NOP 




0045 


00 


NOP 




0046 


C37406 


JP 


0674H 


0049 


CD2B00 


CALL 


002BH 


004C 


B7 


OR 


A 


004D 


CO 


RET 


NZ 


004E 


18F9 


JR 


0049H 


0050 


11E541 


LD 


DE,41E5H 


0053 


18BE 


JR 


0013H 


0055 


11ED41 


LD 


DE,41EDH 


0058 


18C1 


JR 


OOIBH 


005A 


11F541 


LD 


DE,41F5H 


005D 


18BC 


JR 


OOIBH 


005F 


00 


NOP 




0060 


C3FB01 


JP 


OlFBH 


0063 


20FB 


JR 


NZ, 0060H 


0065 


C9 


RET 




0066 


C33930 


JP 


3039H 


0069 


C35204 


JP 


0452H 


006C 


111D42 


LD 


DE,421DH 


006F 


18AA 


JR 


OOIBH 


0071 


00 


NOP 




0072 


C3CC06 


JP 


6CCH 



DISABLE INTERRUPTS! 

CLEAR STATUS 

GO TO BOOTSTRAP 

UNUSED 

RST 08H VECTOR 

UNUSED 

RETURN ROUTINE 

WARM BOOT VECTOR 

RST OlOH VECTOR. 

SAVE BC 

SELECT READ BYTE 

GO TO I/O DISPATCHER. 

RST 018H VECTOR. 

SAVE BC 

SELECT WRITE BYTE 

GO TO I/O DISPATCHER 

EST 020H VECTOR 

SAVE BC 

GO TO I/O DISPATCHER 

RST 028H VECTOR 

DE => KEYBOARD DCB 

INPUT BYTE 

RST 03 OH VECTOR 

DE => VIDEO DCB 

OUTPUT BYTE 

RST 038H VECTOR 

DE => PRINTER DCB 

OUTPUT BYTE 

INPUT TEXT FROM KEYBOARD 

UNUSED CALL 

(FUTURE EXPANSION) 

(FUTURE EXPANSION) 
GO TO I/O DISPATCHER 
CHECK KEYBOARD 
KEY HIT? 
RETURN IF SO. 
LOOP IF NOT. 
DE => RS-232 INPUT DCB 
INPUT BYTE 

DE => RS-2 32 OUTPUT DCB 
OUTPUT BYTE 

DE =>RS-232 CONTROLLER DCB 
SET UP RS-232 
UNUSED 

GO TO DELAY ROUTINE 
CONDITIONAL DELAY. 

GO TO NON-MASKABLE INTERRUPT ROUTINE 

INITIALIZE I/O DRIVERS 

DE => $ ROUTINE DCB 

SET I/O ROUTING 

UNUSED 
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0075 


118040 


LD 


DE,4080H 


SET SOME POINTERS 


0078 


21F718 


LD 


HL,18F7H 


(TAPE BASIC) 


007B 


012700 


LD 


BC, 0027H 




007E 


EDBO 


LDIR 






0080 


21E542 


LD 


HL,42E5H 




0083 


363A 


LD 


(HL) ,3AH 




0085 


23 


INC 


HL 




0086 


70 


LD 


(HL) ,B 




0087 


23 


INC 


HL 




0088 


362C 


LD 


(HL) ,2CH 




008A 


23 


INC 


HL 




008B 


22A740 


LD 


(40A7H) ,HL 




008E 


112D01 


LD 


DE, 012DH 


DE => L3 ERROR ROUTINE. 


0091 


061C 


LD 


B, ICH 


SET 2 8 VECTOR 


0093 


215241 


LD 


HL,4152H 


FROM 4152H UP. 


0096 


36C3 


LD 


(HL) , 0C3H 


JP INSTRUCTION 


0098 


23 


INC 


HL 




0099 


73 


LD 


(HL) ,E 


JUMP ADDRESS 


9A 


23 


INC 


HL 




009B 


72 


LD 


(HL) ,D 




009C 


23 


INC 


HL 




009D 


10F7 


DJNZ 


0096H 


LOOP UNTIL DONE. 


009F 


0615 


LD 


B, 15H 


SET 15 RETURNS 


OOAl 


36C9 


LD 


(HL) ,0C9H 


FROM DOS LINKS 


A3 


23 


INC 


HL 




0A4 


23 


INC 


HL 




0A5 


23 


INC 


HL 




0A6 


10F9 


DJNZ 


OOAIH 


LOOP UNTIL DONE 


0A8 


21E843 


LD 


HL,43E8H 


ZERO BYTE 43E8H 


OOAB 


70 


LD 


(HL) ,B 




AC 


31F842 


LD 


SP,42F8H 


SET STACK 


OOAF 


CD8F1B 


CALL 


1B8FH 


SET NEW STACK 


00B2 


00 


NOP 




UNUSED 


00B3 


00 


NOP 




UNUSED 


00B4 


00 


NOP 




UNUSED 


00B5 


210501 


LD 


HL, 0105H 


PRINT "MEMORY SIZE?"; 


00B8 


CDA72 8 


CALL 


2 8A7H 




OOBB 


CDB31B 


CALL 


1BB3H 


INPUT RESPONSE 


OOBE 


38F5 


JR 


C, 00B5H 


RESTART IF <BREAK> 


OOCO 


D7 


RST 


lOH 


SCAN FOR FIRST CHARACTER 


OOCl 


B7 


OR 


A 


NULL ? 


00C2 


2012 


JR 


NZ,00D6H 


SKIP IF NOT 


00C4 


214C44 


LD 


HL,444CH 


START OF MEMORY TEST. 


00C7 


23 


INC 


HL 


NEXT BYTE 


00C8 


7C 


LD 


A,H 


END OF MEMORY 


00C9 


B5 


OR 


L 




OOCA 


281B 


JR 


Z,00E7H 


SKIP OUT IF SO. 


OOCC 


7E 


LD 


A, (HL) 


GET LOCATION CONTENTS 


OOCD 


47 


LD 


B,A 


SAVE IN B. 


OOCE 


2F 


CPL 




INVERT CONTENTS 


OOCF 


77 


LD 


(HL) ,A 


SAVE TEST BYTE. 


OODO 


BE 


CP 


(HL) 


SEE IF STILL SAME 


OODl 


70 


LD 


(HL) ,B 


RESTORE OLD CONTENTS 


00D2 


28F3 


JR 


Z, 00C7H 


TEST NEXT LOCATION IF GOi 


00D4 


1811 


JR 


00E7H 


SKIP OUT IF BAD 


00D6 


CD5A1E 


CALL 


1E5AH 


DECODE RESPONSE 


00D9 


B7 


OR 


A 


NULL ? (AFTER RESPONSE) 
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OODA 


C29719 


JP 


NZ, 1997H 


OODD 


EB 


EX 


DE,HL 


OODE 


2B 


DEC 


HL 


OODF 


3E8F 


LD 


A, 8FH 


OOEl 


46 


LD 


B, (HL) 


00E2 


77 


LD 


(HL) ,A 


00E3 


BE 


CP 


(HL) 


00E4 


70 


LD 


(HL) ,B 


00E5 


20CE 


JR 


NZ, 00B5H 


00E7 


2B 


DEC 


HL 


00E8 


111445 


LD 


DE,4514H 


OOEB 


DF 


RST 


18H 


OOEC 


DA7A19 


JP 


C, 197AH 


OOEF 


IICEFF 


LD 


DE, OFFCEH 


00F2 


22B140 


LD 


(40B1H) ,HL 


OOFS 


19 


ADD 


HL,DE 


00F6 


22A040 


LD 


(40A0H) ,HL 


00F9 


CD4D1B 


CALL 


1B4DH 


OOFC 


211101 


LD 


HL, OlllH 


OOFF 


C3EB37 


JP 


3 7EBH 


0102 


C3191A 


JP 


1A19H 


0105 




"MEMORY SIZE" 


0110 


00 






0111 




"RADIO 


SHACK MODEI 


012C 


OD 






012D 


1E2C 


LD 


E,2CH 


012F 


C3A219 


JP 


19A2H 


0132 


D7 


RST 


lOH 


0133 


AF 


XOR 


A 


0134 


01 






0135 


3E80 


LD 


A, 80H 


0137 


01 






0137 


3E01 


LD 


A, OIH 


013A 


F5 


PUSH 


AF 


013B 


CF 


RST 


08H 


013C 


28 






013D 


CD1C2B 


CALL 


2B1CH 


0140 


FE80 


CP 


80H 


0142 


D24A1E 


JP 


NC, 1E4AH 


0145 


F5 


PUSH 


AF 


0146 


CF 


RST 


08H 


0147 


2C 


INC 


L 


0148 


CD1C2B 


CALL 


2B1CH 


014B 


FE30 


CP 


30H 


014D 


D24A1E 


JP 


NC,1E4AH 


0150 


16FF 


LD 


D, OFFH 


0152 


14 


INC 


D 


0153 


D603 


SUB 


03H 


0155 


30FB 


JR 


NC, 0152H 


0157 


C603 


ADD 


A,03H 


0159 


4F 


LD 


C,A 


015A 


Fl 


POP 


AF 


015B 


87 


ADD 


A, A 


015C 


5F 


LD 


E,A 


015D 


0602 


LD 


B,02H 


015F 


7A 


LD 


A,D 


0160 


IF 


RRA 





SYNTAX ERROR IF NOT 
HL = LAST LOCATION + 
HL = LAST LOCATION 
TEST LOCATION 



REDO IF NOT GOOD 

HL = LAST LOCATION 

MUST BE > 4514H 

COMPARE HL,DE 

OM ERROR IF NOT ENOUGH 

RESERVE 5 BYTE STRING SPACE 

SAVE END OF MEMORY 

COMPUTE END OF AVAILABLE MEMORY. 

SAVE END OF AVAILABLE MEMORY. 

PRINT "RADIO SHACK ..." 

CONTINUE 

UNUSED JUMP 



ERROR 2 3 "L3" ERROR 

GO TO ERROR ROUTINE 

SCAN FOR NEXT CHARACTER 

A = (POINT) 

MASK TO 013 AH 

A = 80H (SET) 

MASK TO 013AH 

A = OIH (RESET) 

SAVE CALL TYPE 

SYNTAX ERROR IF 

CURRENT CHARACTER NOT " ( " 

DECODE X 

X = > 128 ? 

FC ERROR IF SO. 

SAVE X 

SYNTAX ERROR IF 

CURRENT CHARACTER NOT " ) " 

DECODE Y 

Y > 48? 

FC ERROR IF SO. 

D = Y/3 



C = Y MOD 3 
RESTORE X 
E = X * 2 

DE = (256*Y/3 

+X*2) /4 

CARRY = X MOD 2 
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0161 


57 


LD 


D,A 


0162 


7B 


LD 


A,E 


0163 


IF 


RRA 




0164 


5F 


LD 


E,A 


0165 


10F8 


DJNZ 


015FH 


0167 


79 


LD 


A,C 


0168 


8F 


ADC 


A, A 


0169 


3C 


INC 


A 


016A 


47 


LD 


B,A 


016B 


AF 


XOR 


A 


016C 


37 


SCF 




016D 


8F 


ADC 


A, A 


016E 


lOFD 


DJNZ 


016DH 


0170 


4F 


LD 


C,A 


0171 


7A 


LD 


A,D 


0172 


F63C 


OR 


3CH 


0174 


57 


LD 


D,A 


0175 


lA 


LD 


A, (DE) 


0176 


B7 


OR 


A 


0177 


FA7C01 


JP 


M,017CH 


017A 


3E80 


LD 


A, 80H 


017C 


47 


LD 


B,A 


017D 


Fl 


POP 


AF 


017E 


B7 


OR 


A 


017F 


78 


LD 


A,B 


0180 


2810 


JR 


Z, 0192H 


0182 


12 


LD 


(DE) ,A 


0183 


FA8F01 


JP 


M, 018FH 


0186 


79 


LD 


A,C 


0187 


2F 


CPL 




0188 


4F 


LD 


C,A 


0189 


lA 


LD 


A, (DE) 


018A 


Al 


AND 


C 


018B 


12 


LD 


(DE) ,A 


018C 


CF 


RST 


08H 


018D 


29 






018E 


C9 


RET 




018F 


Bl 


OR 


C 


0190 


18F9 


JR 


018BH 


0192 


Al 


AND 


C 


0193 


C6FF 


ADD 


A, OFFH 


0195 


9F 


SBC 


A, A 


0196 


E5 


PUSH 


HL 


0197 


CD8D09 


CALL 


098DH 


019A 


El 


POP 


HL 


019B 


18EF 


JR 


018CH 


019D 


D7 


RST 


lOH 


019E 


E5 


PUSH 


HL 


019F 


3A9940 


LD 


A, (4099H) 


01A2 


B7 


OR 


A 


01 A3 


2006 


JR 


NZ , lABH 


01A5 


CD5803 


CALL 


0358H 


01A8 


B7 


OR 


A 


01A9 


2811 


JR 


Z, OIBCH 


OlAB 


F5 


PUSH 


AF 


01 AC 


AF 


XOR 


A 


OlAD 


329940 


LD 


(4099H) ,A 



B = (Y MOD 3) 
+ (X MOD 2) 
+ 1 

SET BIT B IN A, 
PUT IN C. 



DE = DE + START 
OF SCREEN 

GET BYTE ON SCREEN 

CHECK IT 

SKIP IF GRAPHIC 

GRAPHIC BLANK 

SAVE SCREEN BYTE 

GET CALL TYPE 

CHECK IT 

RESTORE SCREEN 

JUMP TO POINT IF ZERO 

STORE GRAPHIC CHARACTER. 

JUMP IF SET 

INVERT BIT MASK 



RESET SELECTED BIT. 

STORE NEW GRAPHIC CHARACTER. 

SYNTAX ERROR IF 

CHARACTER NOT " ) " 

DONE 

SET SELECTED BIT. 

CONTINUE . 

MASK OFF IRRELEVANT BITS. 

ADD TRUE VALUE. 

CARRY = TRUE /FALSE 

RETURN TO BASIC 



CONTINUE 

SCAN FOR NEXT CHARACTER 

SAVE LOCATION 

CHECK INKEY $ STORAGE 

SKIP IF NOT NULL. 

SCAN FOR KEY 

NULL? 

SKIP IF SO. 

SAVE CHARACTER. 

CLEAR INKEY $ STORAGE 
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OIBO 


3C 


INC 


A 


CREATE 1 BYTE STRING 


OlBl 


CD5728 


CALL 


2857H 




01B4 


Fl 


POP 


AF 


RESTORE CHARACTER. 


01B5 


2AD44 


LD 


HL, (40D4H) 


GET STRING POINTER 


01B8 


77 


LD 


(HL) ,A 


STORE CHARACTER. 


01B9 


C38428 


JP 


2884H 


FINISH UP & RETURN 


OIBC 


212819 


LD 


HL,1928H 


CREATE 


OIBF 


222141 


LD 


(4121H) ,HL 


NULL STRING 


01C2 


3E03 


LD 


A, 03H 


TYPE = 3 (STRING) 


01C4 


32AF40 


LD 


(40AFH) ,A 




01C7 


El 


POP 


HL 


RESTORE LOCATION 


01C8 


C9 


RET 




DONE. 


01C9 


3E1C 


LD 


A, ICH 


HOME CURSOR 


OICB 


CD3A03 


CALL 


03 3AH 


SMALL CHARACTER 


OICE 


3E1F 


LD 


A,1FH 


CLEAR TO END OF 


OlDO 


C33A03 


JP 


03 3AH 


SCREEN 


01D3 


ED5F 


LD 


A,R 


GET RANDOM SEED. 


01D5 


32AB4 


LD 


(40ABH) ,A 


SAVE IT. 


01D8 


C9 


RET 




DONE 


01D9 


21003C 


LD 


HL,3C00H 


POINT TO SCREEN. 


OlDC 


7E 


LD 


A, (HL) 


GET CHARACTER. 


OIDD 


FE80 


CP 


80H 


GRAPHIC? 


OlDF 


3802 


JR 


C, 01E3H 


SKIP IF NOT. 


OlEl 


3E2E 


LD 


A,2EH 


CHARACTER = " . " 


01E3 


CD3B00 


CALL 


003BH 


PRINT CHARACTER 


01E6 


23 


INC 


HL 


NEXT CHARACTER 


01E7 


CB74 


BIT 


06H,H 


DONE? 


01E9 


2029 


JR 


NZ, 0214H 


SKIP OUT IF SO. 


OlEB 


7D 


LD 


A,L 


END OF LINE ? 


OlEC 


E63F 


AND 


3FH 




OlEE 


20EC 


JR 


NZ, OlDCH 


LOOP IF NOT 


OlFO 


CD1402 


CALL 


0214H 


NEWLINE 


01F3 


18E7 


JR 


OlDCH 


LOOP 


01F5 


lOFE 


DJNZ 


01F5H 


UNUSED SUBROUTINE 


01F7 


C9 


RET 






01F8 


C30C30 


JP 


300CH 


CASSETTE OFF 


OlFB 


7F 


LD 


A, A 


DELAY SUBROUTINE. 


OlFC 


OB 


DEC 


BC 




OlFD 


78 


LD 


A,B 




OlFE 


Bl 


OR 


C 




OlFF 


2 0FA 


JR 


NZ, OlFBH 




0201 


C9 


RET 






0202 




" (C) 


"80 TANDY" 


COPYRIGHT 


020F 


OD 






MESSAGE 


0210 


1E3D 


LD 


E,3DH 


UNUSED SUBROUTINE 


0212 


AF 


XOR 


A 


CLEAR STATUS 


0213 


C9 


RET 




DONE. 


0214 


3E0D 


LD 


A, ODH 


CARRIAGE RETURN 


0216 


CD3B00 


CALL 


003BH 


TO PRINTER 


0219 


AF 


XOR 


A 


CLEAR 


021A 


C9 


RET 




DONE 


021B 


7E 


LD 


A, (HL) 


GET CHARACTER 


021C 


23 


INC 


HL 


POINT TO NEXT CHARACTER 


021D 


FE03 


CP 


03H 


END OF MESSAGE? 


021F 


C8 


RET 


Z 


EXIT IF SO. 


0220 


CD33 00 


CALL 


0033H 


DISPLAY CHARACTER. 


0223 


FEOD 


CP 


ODH 


END OF MESSAGE? 
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0225 


20F4 


JR 


NZ, 021BH 


LOOP IF NOT 


0227 


C9 


RET 




DONE 


0228 


E3 


EX 


(SP) ,HL 


PUT RETURN IN STACK 


0229 


C32A30 


JP 


3 02AH 


& RESTORE HL. 


022C 


18E4 


JR 


0212H 


MODEL -1 CASSETTE ON 


022E 


FB 


EI 




ENABLE INTERRUPTS 


022F 


C3191A 


JP 


1A19H 


GO TO "READY" 


0232 


3F 


CCF 




UNUSED 


0233 


3C 


INC 


A 


ROUTINE 


0234 


C9 


RET 






0235 


D5 


PUSH 


DE 


SAVE REGISTERS 


0236 


C5 


PUSH 


BC 


DE & BC 


0237 


E5 


PUSH 


HL 




0238 


2A0E42 


LD 


HL, (420EH) 


GET READ VECTOR 


023B 


E3 


EX 


(SP) ,HL 


SAVE IT AND RESTORE HL 


023C 


C9 


RET 




GO TO IT. 


023D 


E5 


PUSH 


HL 


SAVE HL 


023E 


210030 


LD 


HL,3000H 


SET RETURNS TO 3 000H 


0241 


18E5 


JR 


0228H 


CONTINUE 


0243 


F3 


DI 




DISABLE INTERRUPTS 


0244 


CD0F30 


CALL 


300FH 


START TAPE 


0247 


E5 


PUSH 


HL 


SAVE HL 


0248 


210630 


LD 


HL,3006H 


SET RETURN TO 3 06H 


024B 


18DB 


JR 


0228H 


CONTINUE 


024D 


E5 


PUSH 


HL 


SAVE HL 


024E 


2A0C42 


LD 


HL, (420CH) 


GET WRITE VECTOR 


0251 


E3 


EX 


(SP) ,HL 


RESTORE HL & SAVE RETURN 


0252 


C9 


RET 




GO TO IT 


0253 


E3 


EX 


(SP) ,HL 


GET RETURN & SAVE HL 


0254 


3A1142 


LD 


A, (4211H) 


SLOW OR FAST? 


0257 


B7 


OR 


A 




0258 


2803 


JR 


Z,025DH 


SKIP IF SLOW 


025A 


23 


INC 


HL 


MOVE TO FAST VECTOR 


025B 


23 


INC 


HL 




025C 


23 


INC 


HL 




025D 


E3 


EX 


(SP) ,HL 


SAVE RETURN & RESTORE HL 


025E 


C9 


RET 




GO TO IT 


025F 


CI 


POP 


BC 


UNUSED 


0260 


C9 


RET 




ROUTINE 


0261 


CD6402 


CALL 


0264H 




0264 


18E7 


JR 


024DH 


WRITE BYTE TO TAPE 


0266 


3C 3C 18 






TIME DATA (60,60,24) 


0269 


IF IC IF 


IE 




MONTH LENGTHS 


026D 


IF IE IF 


IF 




FOR DATE$ 


0271 


IE IF IE 


IF 






0275 


00 00 






UNUSED 


0277 


ID IE 






CLEAR LINE 


0279 




"DISKETTE?" 


MESSAGE 


0282 


03 






END OF MESSAGE 


0283 


F2 






UNUSED 


0286 


C38702 


JP 


0287H 


MODEL- I CASSETTE ON 


0287 


F3 


DI 




DISABLE INTERRUPTS 


0288 


CD0F30 


CALL 


300FH 


TURN ON TAPE 


028B 


18B0 


JR 


023DH 


SET WRITE VECTORS 


028D 


3A4038 


LD 


A, (3840H) 


CHECK <BREAK> 


0290 


E604 


AND 


04H 




0292 


C9 


RET 
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0293 


C34302 


JP 


0243H 


CASSETTE HEADER READ. 


0296 


18AB 


JR 


0243H 


CASSETTE HEADER READ 


0298 


3A1042 


LD 


A, (4210H) 


SET CLOCK ON BIT. 


029B 


CBC7 


SET 


OOH,A 


BIT 


029D 


321042 


LD 


(4210H) ,A 


SAVE FLAG 


02A0 


C9 


RET 






02A1 


3A1042 


LD 


A, (4210H) 


RESET CLOCK ON 


02A4 


CB87 


RES 


OOH,A 


BIT. 


02A6 


18F5 


JR 


029DH 




02A8 


C9 


RET 




UNUSED 


02A9 


CD1403 


CALL 


0314H 


LOAD EXECUTION 


02AC 


22DF40 


LD 


(40DFH) ,HL 


ADDRESS & SAVE 


02AF 


CDF801 


CALL 


01F8H 


TURN TAPE OFF. 


02B2 


CDE241 


CALL 


41E2H 


DOS LINK 


02B5 


318842 


LD 


SP,4288H 


SET SYSTEM STACK 


02B8 


CDFE2 


CALL 


2 0FEH 


NEW DISPLAY LINE 


02BB 


3E2A 


LD 


A,2AH 


DISPLAY "*" 


02BD 


CD2A03 


CALL 


03 2AH 




02C0 


CDB31B 


CALL 


1BB3H 


PRINT " ? " ; INPUT RESPONSE 


02C3 


DACC06 


JP 


C,06CCH 


JUMP IF <BREAK> 


02C6 


D7 


RST 


lOH 


SCAN FOR CHARACTER. 


02C7 


CA9719 


JP 


Z,1997H 


SYNTAX ERROR IF NONE 


02CA 


FE2F 


CP 


2FH 


" / " ? 


02CC 


284F 


JR 


Z, 031DH 


SKIP IF SO 


02CE 


CD9302 


CALL 


0293H 


READER HEADER & SYC 


02D1 


CD3502 


CALL 


0235H 


READ CHARACTER. 


02D4 


FE55 


CP 


55H 


SYSTEM FLAG? 


02D6 


20F9 


JR 


NZ, 02D1H 


LOOP IF NOT 


02D8 


0606 


LD 


B, 06H 


6 BYTE NAME 


02DA 


7E 


LD 


A, (HL) 


GET GIVEN CHARACTER. 


02DB 


B7 


OR 


A 


NULL? 


02DC 


2809 


JR 


Z,02E7H 


SKIP IF SO 


02DE 


CD3502 


CALL 


0235H 


READ TAPE CHARACTER. 


02E1 


BE 


CP 


(HL) 


SAME AS GIVEN? 


02E2 


23 


INC 


HL 


POINT TO NEXT 


02E3 


20EC 


JR 


NZ, 02D1H 


TRY AGAIN IF NOT. 


02E5 


10F3 


DJNZ 


02DAH 


LOOP UNTIL DONE. 


02E7 


CD2C02 


CALL 


022CH 


DUMMY CALL 


02EA 


CD3502 


CALL 


0235H 


READY BYTE 


02ED 


FE78 


CP 


78H 


TRANSFER ADDRESS HEADER? 


02EF 


28B8 


JR 


Z, 02A9H 


JUMP IF SO. 


02F1 


FE3C 


CP 


3CH 


DATA HEADER? 


02F3 


20F5 


JR 


NZ, 02EAH 


LOOP IF NOT 


02F5 


CD3502 


CALL 


0235H 


READ BYTE 


02F8 


47 


LD 


B,A 


B = DATA FIELD LENGTH 


02F9 


CD1403 


CALL 


0314H 


HL = DATA LOAD POINT 


02FC 


85 


ADD 


A,L 


START CHECKSUM 


02FD 


4F 


LD 


C,A 




02FE 


CD3502 


CALL 


0235H 


READ BYTE 


0301 


77 


LD 


(HL) ,A 


STORE IT 


0302 


23 


INC 


HL 


POINT TO NEXT LOCATION 


0303 


81 


ADD 


A,C 


UPDATE CHECKSUM 


0304 


4F 


LD 


C,A 




0305 


10F7 


DJNZ 


02FEH 


LOOP UNTIL FIELD LOADED. 


0307 


CD3502 


CALL 


0235H 


READ CHECKSUM 


030A 


B9 


CP 


C 


COMPARE WITH COMPUTED 


030B 


2 8DA 


JR 


Z,02E7H 


LOOP IF GOOD 
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030D 


3E43 


LD 


A,43H 


DISPLAY "C" FOR 


030F 


323E3C 


LD 


(3C3EH) ,A 


CHECK SUM ERROR. 


0312 


18D6 


JR 


02EAH 


CONTINUE ANYHOW 


0314 


CD3502 


CALL 


0235H 


READ LSB 


0317 


6F 


LD 


L,A 


PUT IN L 


0318 


CD3502 


CALL 


0235H 


READ MSB 


031B 


67 


LD 


H,A 


PUT IN H 


031C 


C9 


RET 




DONE 


031D 


EB 


EX 


DE,HL 


DE = EXECUTION ADDRESS 


031E 


2ADF4 


LD 


HL, (40DFH) 




0321 


EB 


EX 


DE,HL 




0322 


D7 


RST 


lOH 


SCAN FOR NEXT CHARACTER 


0323 


C4 5A1E 


CALL 


NZ, 1E5AH 


DECADE ADDRESS IF GIVEN 


0326 


208A 


JR 


NZ, 02B2H 


JUMP BACK ON ERROR 


0328 


EB 


EX 


DE,HL 


PUT EXECUTION ADDRESS IN HL 


0329 


E9 


JP 


(HL) 


JUMP TO IT. 


032A 


C5 


PUSH 


BC 


SAVE BC 


032B 


4F 


LD 


C,A 


PUT CHARACTER IN C. 


032C 


CDC141 


CALL 


41C1H 


LINK TO DOS 


032F 


3A9C40 


LD 


A, (409CH) 


GET DEVISE FLAG. 


0332 


B7 


OR 


A 


TEST IT. 


0333 


79 


LD 


A,C 


PUT CHARACTER BACK 


0334 


CI 


POP 


BC 


RESTORE BC 


0335 


FA6402 


JP 


M, 0264H 


TYPE = -1 GO TO TAPE 


0338 


2062 


JR 


NZ,039CH 


TYPE = 1 GO TO PRINTER 


033A 


D5 


PUSH 


DE 


SAVE DE 


033B 


CD3300 


CALL 


0033H 


GO TO VIDEO 


033E 


F5 


PUSH 


AF 


SAVE AF 


033F 


CD4803 


CALL 


0348H 


UPDATE CURSOR POS . 


0342 


32A640 


LD 


(40A6H) ,A 


SAVE LINE POSITION 


0345 


Fl 


POP 


AF 


RESTORE REGISTERS 


0346 


Dl 


POP 


DE 




0347 


C9 


RET 




DONE 


0348 


3A3D4 


LD 


A, (403DH) 


DOUBLE -SIZE? 


034B 


E608 


AND 


08H 




034D 


3A2 04 


LD 


A, (4020H) 


GET CURSOR POS. 


0350 


2803 


JR 


Z,0355H 


SKIP IF SMALL CHARACTER. 


0352 


OF 


RRCA 




DIVIDE POS BY 2 


0353 


E61F 


AND 


IFH 


KEEP ON LINE 


0355 


E63F 


AND 


3FH 


KEEP ON LINE 


0357 


C9 


RET 




DONE 


0358 


CDC441 


CALL 


41C4H 


LINK TO DOS 


035B 


D5 


PUSH 


DE 


SAVE DE 


035C 


CD2B00 


CALL 


002BH 


SCAN KEYBOARD 


035F 


Dl 


POP 


DE 


RESTORE DE 


0360 


C9 


RET 




DONE 


0361 


AF 


XOR 


A 




0362 


329940 


LD 


(4099H) ,A 


INKEY$ = " " 


0365 


32A640 


LD 


(40A6H) ,A 


TAB POS = 


0368 


CDAF41 


CALL 


41AFH 


LINK TO DOS 


036B 


C5 


PUSH 


BC 


SAVE BC 


036C 


2AA740 


LD 


HL, (40A7H) 


HL => INPUT BUFFER 


036F 


06F0 


LD 


B, OFOH 


UP TO 24 CHARACTER. 


0371 


CDD905 


CALL 


05D9H 


INPUT TEXT TO BUFFER 


0374 


F5 


PUSH 


AF 


SAVE STATUS 


0375 


48 


LD 


C,B 


HL=> END OF TEXT 


0376 


0600 


LD 


B,OOH 
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0378 


09 


ADD 


HL,BC 




0379 


3600 


LD 


(HL) ,00H 


PUT NULL AT END OF TEXT 


037B 


2AA740 


LD 


HL, (40A7H) 


GET BUFFER LOCATION 


037E 


Fl 


POP 


AF 


RESTORE STATUS 


037F 


CI 


POP 


BC 


RESTORE BC 


0380 


2B 


DEC 


HL 


BACK UP BEFORE BUFFER 


0381 


D8 


RET 


C 


CARRY = <BREAK> 


0382 


AF 


XOR 


A 


CLEAR STATUS 


0383 


C9 


RET 




DONE 


0384 


CD5803 


CALL 


0358H 


CHECK KEYBOARD 


0387 


B7 


OR 


A 




0388 


CO 


RET 


NZ 


RETURN IF KEY PRESSED 


0389 


18F9 


JR 


0384H 


LOOP OTHERWISE 


038B 


AF 


XOR 


A 


RESET DEVICE TO VIDEO 


038C 


329C40 


LD 


(409CH) ,A 




038F 


3A9B4 


LD 


A, (409BH) 


PRINTER AT LEFT MARGIN? 


0392 


B7 


OR 


A 




0393 


C8 


RET 


Z 


RETURN IF SO 


0394 


3E0D 


LD 


A, ODH 


RETURN CARRIAGE TO 


0396 


D5 


PUSH 


DE 


LEFT MARGIN 


0397 


CD9C03 


CALL 


039CH 




039A 


Dl 


POP 


DE 




039B 


C9 


RET 




DONE 


039C 


F5 


PUSH 


AF 


SAVE REGISTERS 


039D 


D5 


PUSH 


DE 




039E 


C5 


PUSH 


BC 




039F 


4F 


LD 


C,A 


SAVE CHARACTER IN C 


03A0 


lEOO 


LD 


E, OOH 




03A2 


FEOC 


CP 


OCH 


FORM FEED? 


03A4 


2810 


JR 


Z,03B6H 


JUMP IF SO 


03A6 


FEOA 


CP 


OAH 


LINE FEED? 


03A8 


2003 


JR 


NZ,03ADH 


SKIP IF NOT 


03AA 


3E0D 


LD 


A, ODH 


MAKE IT A CARRIAGE 


03AC 


4F 


LD 


C,A 


RETURN 


03 AD 


FEOD 


CP 


ODH 


CARRIAGE RETURN 


03AF 


2805 


JR 


Z, 03B6H 


JUMP IF SO 


03B1 


3A9B40 


LD 


A, (409BH) 


UPDATE PRINTER 


03B4 


3C 


INC 


A 


LINE WIDTH 


03B5 


5F 


LD 


E,A 


PUT IN E. 


03B6 


7B 


LD 


A,E 


GET PRINTER LINE WIDTH 


03B7 


329B40 


LD 


(409BH) ,A 


SAVE IT 


03BA 


79 


LD 


A,C 


GET CHARACTER TO PRINT 


03BB 


CD3B00 


CALL 


003BH 


PRINT IT 


03BE 


CI 


POP 


BC 


RESTORE REGISTERS 


03BF 


Dl 


POP 


DE 




03C0 


Fl 


POP 


AF 




03C1 


C9 


RET 




DONE 


03C2 


79 


LD 


A,C 


PUT CHARACTER IN A. 


03C3 


FE2 


CP 


20H 


CONTROL CHARACTER? 


03C5 


301E 


JR 


NC,03E5H 


JUMP IF SO 


03C7 


FEOD 


CP 


ODH 


CARRIAGE RETURN? 


03C9 


282A 


JR 


Z,03F5H 


JUMP IF SO 


03CB 


FEOC 


CP 


OCH 


FORM FEED 


03CD 


2030 


JR 


NZ, 03FFH 


JUMP IF NOT 


03CF 


DD7E03 


LD 


A, (IX+03H) 


B = # LINES LEFT IN PAGE 


03D2 


DD9604 


SUB 


(IX+04H) 




03D5 


47 


LD 


B,A 
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03D6 


CD4004 


CALL 


0440H 


03D9 


3E0A 


LD 


A,0AH 


03DB 


D3F8 


OUT 


(0F8H) ,A 


03DD 


10F7 


DJNZ 


03D6H 


03DF 


DD360500 


LD 


(IX+05H) ,00H 


03E3 


1854 


JR 


0439H 


03E5 


FE80 


CP 


80H 


03E7 


3030 


JR 


NC, 0419H 


03E9 


0600 


LD 


B, OOH 


03EB 


D620 


SUB 


20H 


03ED 


4F 


LD 


C,A 


03EE 


214531 


LD 


HL,3145H 


03F1 


09 


ADD 


HL,BC 


03F2 


4E 


LD 


C, (HL) 


03F3 


180E 


JR 


0403H 


03F5 


DD7E05 


LD 


A, (IX+05H) 


03F8 


B7 


OR 


A 


03F9 


79 


LD 


A,C 


03FA 


2003 


JR 


NZ, 03FFH 


03FC 


3E0A 


LD 


A,0AH 


03FE 


4F 


LD 


C,A 


03FF 


FE2 


CP 


20H 


0401 


3816 


JR 


C,0419H 


0403 


DD7E06 


LD 


A, (IX+06H) 


0406 


3C 


INC 


A 


0407 


2810 


JR 


Z, 0419H 


0409 


DDBE05 


CP 


(IX+05H) 


040C 


300B 


JR 


NC, 0419H 


040E 


CD4004 


CALL 


0440H 


0411 


3E0D 


LD 


A,ODH 


0413 


D3F8 


OUT 


(0F8H) ,A 


0415 


DD360500 


LD 


(IX+05H) ,00H 


0419 


CD4004 


CALL 


0440H 


041C 


79 


LD 


A,C 


041D 


D3F8 


OUT 


(0F8H) ,A 


041F 


DD3405 


INC 


(IX+05H) 


0422 


FEOD 


CP 


ODH 


0424 


2804 


JR 


Z, 042AH 


0426 


FEOA 


CP 


OAH 


0428 


2013 


JR 


NZ,043DH 


042A 


DD360500 


LD 


(IX+05H) , OOH 


042E 


DD3404 


INC 


(IX+04H) 


0431 


DD7E04 


LD 


A, (IX+04H) 


0434 


DDBE03 


CP 


(IX+03H) 


0437 


2004 


JR 


NZ,043DH 


0439 


DD360401 


LD 


(IX+04H) , OIH 


043D 


AF 


XOR 


A 


043E 


79 


LD 


A,C 


043F 


C9 


RET 




0440 


CD4B04 


CALL 


044BH 


0443 


C8 


RET 


Z 


0444 


CD8D02 


CALL 


028DH 


0447 


28F7 


JR 


Z, 0440H 


0449 


Fl 


POP 


AF 


044A 


C9 


RET 




044B 


DBF8 


IN 


A, (0F8H) 


044D 


E6F0 


AND 


OFOH 



WAIT FOR PRINTER 
OUTPUT LINE FEED 

LOOP UNTIL PAGE FEED 

# CHARACTERS PRINTED = 
SET # LINES PRINTED & EXIT 
GRAPHICS CHAR? 

JUMP IF SO. 

MSB = 

ADJUST CHARACTER TO TABLE 

BC = ADJUSTED VALUE 

HL => CHARACTER TABLE 

HL => CHARACTER 

GET NEW CHARACTER 

CONTINUE 

GET # CHARACTERS PRINTED 

NONE? 

RESTORE CHARACTER TO A. 

SKIP IF SOME PRINTED 

CHAR = LINE FEED 

CONTROL CHARACTER? 

JUMP IF SO. 

GET MAX PRINT WIDTH. 

UNLIMITED? 

SKIP IF SO. 

LINE FULL? 

SKIP IF NOT 

GAIT FOR PRINTER 

CARRIAGE RETURN 

OUTPUT IT. 

# CHARACTERS PRINTED = 
WAIT FOR PRINTER 
RESTORE CHARACTER. 
OUTPUT IT 

INCREMENT # CHARACTERS PRINTED 

CARRIAGE RETURN 

SKIP IF SO. 

LINE FEED? 

SKIP IF NOT 

EMPTY LINE 

INCREMENT # LINES PRINTED 

ON NEXT PAGE? 

SKIP IF NOT 

TOP OF PAGE? 

CLEAR STATUS 

RESTORE CHARACTER. 

DONE 

CHECK PRINTER 

RETURN IF READY 

CHECK <BREAK> 

LOOP IF NOT PRESSED 

EXIT CALLING SUBROUTINE 

GET PRINTER STATUS 

MASK OFF IRRELEVANT BITS 
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044F 


FE30 


CP 


30H 


0451 


C9 


RET 




0452 


21BF36 


LD 


HL,3 6BFH 


0455 


111540 


LD 


DE,4015H 


0458 


011800 


LD 


BC,0018H 


045B 


EDBO 


LDIR 




045D 


21F936 


LD 


HL,36F9H 


0460 


11E541 


LD 


DE,41E5H 


0463 


011800 


LD 


BC, 0018H 


0466 


EDBO 


LDIR 




0468 


C9 


RET 




0469 


20 






046A 


DA 






046B 


AF 


XOR 


A 


046C 


321442 


LD 


(4214H) ,A 


046F 


2AA44 


LD 


HL, (40A4H) 


0472 


C9 


RET 




0473 


F3 


DI 




0474 


DD6E03 


LD 


L, (IX+03H) 


0477 


DD6604 


LD 


H, (IX+04H) 


047A 


DD7E05 


LD 


A, (IX+05H) 


047D 


B7 


OR 


A 


047E 


2801 


JR 


Z, 0481H 


0480 


77 


LD 


(HL) ,A 


0481 


79 


LD 


A,C 


0482 


FE2 


CP 


20H 


0484 


DA2105 


JP 


C,0521H 


0487 


FECO 


CP 


OCOH 


0489 


302C 


JR 


NC, 04B7H 


048B 


CD7605 


CALL 


0576H 


048E 


7C 


LD 


A,H 


048F 


E603 


AND 


03H 


0491 


F63C 


OR 


3CH 


0493 


67 


LD 


H,A 


0494 


56 


LD 


D, (HL) 


0495 


DD7E05 


LD 


A, (IX+05H) 


0498 


B7 


OR 


A 


0499 


280D 


JR 


Z, 04A8H 


049B 


DD7205 


LD 


(IX+05H) ,D 


049E 


DD7E06 


LD 


A, (IX+06H) 


04A1 


FE2 


CP 


20H 


04A3 


3002 


JR 


NC,04A7H 


04A5 


3EB0 


LD 


A, OBOH 


04A7 


77 


LD 


(HL) ,A 


04A8 


DD7503 


LD 


(IX+03H) ,L 


04AB 


DD7404 


LD 


(IX+04H) ,H 


04AE 


AF 


XOR 


A 


04AF 


79 


LD 


A,C 


04B0 


FB 


EI 




04B1 


C9 


RET 




04B2 


7D 


LD 


A,L 


04B3 


E6C0 


AND 


OCOH 


04B5 


6F 


LD 


L,A 


04B6 


C9 


RET 




04B7 


DD7E07 


LD 


A, (IX+07H) 


04BA 


B7 


OR 


A 


04BB 


79 


LD 


A,C 



READY? 

INITIALIZE 
KI,DO,PR 



INITIALIZE 
RI,RO,RN 



UNUSED 

UNUSED 

CLEAR STATUS 

UNPROTECT SCREEN 

POINT TO START OF PROGRAM 

DONE 

DISABLE INTERRUPTS 

GET CURSOR POSITION 

GET CHARACTER AT CURSOR 

CURSOR ON? 

SKIP IF OFF 

DISPLAY CHARACTER AT CURSOR 

GET CHARACTER TO DISPLAY 

CONTROL CHARACTER? 

JUMP IF SO. 

TAB/SPECIAL CHARACTER? 

JUMP IF SO 

DISPLAY CHARACTER. 

MAKE SURE CURSOR 

IS ON SCREEN 



GET CHARACTER AT CURSOR 
CURSOR ON? 

SKIP IF NOT 

SAVE CHARACTER UNDER CURSOR 

GET CURSOR CHARACTER . , 

CONTROL CHARACTER? 

USE IT IF NOT 

USE DEFAULT CURSOR. 

DISPLAY CURSOR 

SAVE CURSOR POSITION 

CLEAR STATUS 

RESTORE CHARACTER. 

ENABLE INTERRUPTS 

DONE 

CURSOR TO START 

OF LINE 



TABS OR SPECIAL CHARACTERS? 
RESTORE CHARACTER 
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04BC 


2 0CD 


JR 


NZ, 048BH 


04BE 


D6C0 


SUB 


OCOH 


04C0 


28CC 


JR 


Z, 048EH 


04C2 


47 


LD 


B,A 


04C3 


3E20 


LD 


A,20H 


04C5 


CD7605 


CALL 


0576H 


04C8 


10F9 


DJNZ 


04C3H 


04 CA 


18C2 


JR 


048EH 


04CC 


7E 


LD 


A, (HL) 


04CD 


DD7705 


LD 


(IX+05H) ,A 


04D0 


C9 


RET 




04D1 


AF 


XOR 


A 


04D2 


18F9 


JR 


04CDH 


04D4 


21003C 


LD 


HL,3C00H 


04D7 


3A1042 


LD 


A, (4210H) 


04DA 


E6FB 


AND 


OFBH 


04DC 


CD7005 


CALL 


0570H 


04DF 


3A1442 


LD 


A, (4214H) 


04E2 


E607 


AND 


07H 


04E4 


C8 


RET 


Z 


04E5 


CD0405 


CALL 


0504H 


04E8 


3D 


DEC 


A 


04E9 


18F9 


JR 


04E4H 


04EB 


2B 


DEC 


HL 


04EC 


3A1042 


LD 


A, (4210H) 


04EF 


E604 


AND 


04H 


04F1 


2801 


JR 


Z,04F4H 


04F3 


2B 


DEC 


HL 


04F4 


3620 


LD 


(HL) ,20H 


04F6 


C9 


RET 




04F7 


3A1042 


LD 


A, (4210H) 


04 FA 


E604 


AND 


04H 


04FC 


C4FF04 


CALL 


NZ, 04FFH 


04FF 


7D 


LD 


A,L 


0500 


E63F 


AND 


3FH 


0502 


2B 


DEC 


HL 


0503 


CO 


RET 


NZ 


0504 


114000 


LD 


DE, 0040H 


0507 


19 


ADD 


HL,DE 


0508 


C9 


RET 




0509 


23 


INC 


HL 


050A 


7D 


LD 


A,L 


050B 


E63F 


AND 


3FH 


050D 


CO 


RET 


NZ 


050E 


IICOFF 


LD 


DE,OFFCOH 


0511 


19 


ADD 


HL,DE 


0512 


C9 


RET 




0513 


3A1042 


LD 


A, (4210H) 


0516 


F604 


OR 


04H 


0518 


CD7005 


CALL 


0570H 


051B 


23 


INC 


HL 


051C 


7D 


LD 


A,L 


051D 


E6FE 


AND 


OFEH 


051F 


6F 


LD 


L,A 


0520 


C9 


RET 




0521 


118E04 


LD 


DE, 048EH 


0524 


D5 


PUSH 


DE 



DISPLAY SPECIAL CHARACTER IF SET 
COMPUTE TAB. 
EXIT IF TAB (0) 
DISPLAY REQUESTED 
# OF SPACES 



CONTINUE 

STORE CHARACTER AT CURSOR 

STORE CHARACTER BELOW CURSOR 

SET CURSOR OFF 

HOME CURSOR 
SMALL CHARACTER 



GET # LINES TO PROTECT 

MASK IT 

RETURN WHEN DONE 

MOVE DOWN ONE LINE 

ONE LESS LEFT 

LOOP UNTIL DONE 

BACKUP CURSOR 

CHECK IF LARGE CHARACTER. 

SKIP IF NOT 

BACKUP AGAIN 

BLANK OUT POSITION 

DONE 

DOUBLE SIZE CHARACTERS? 

DO IT TWICE IF SO 

CHECK POSITION 

IN LINE 

BACKUP 

RETURN IF NOT AT START 

MOVE DOWN ONE LINE 



MOVE CURSOR FORWARD 

CHECK POSITION 

IN LINE 

RETURN IF NOT AT END 

MOVE UP ONE LINE 



SET DOUBLE SIZE CHARACTERS 



NEXT POSITION 

SET TO EVEN POSITION 

BECAUSE LARGE CHARACTERS 

ONLY DISPLAY EVERY 

OTHER POSITION. 

SET RETURN 
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0525 


FE08 


CP 


08H 


0527 


28C2 


JR 


z. 


04EBH 


0529 


FEOA 


CP 


OAH 


052B 


CAAF05 


JP 


z. 


05AFH 


052E 


FEOD 


CP 


ODH 


0530 


CAAF05 


JP 


z. 


05AFH 


0533 


FEOE 


CP 


OEH 


0535 


2895 


JR 


z. 


04CCH 


0537 


FEOF 


CP 


OFH 


0539 


2896 


JR 


z. 


04D1H 


053B 


D615 


SUB 


15H 


053D 


2821 


JR 


z. 


0560H 


053F 


3D 


DEC 


A 




0540 


2829 


JR 


z. 


056BH 


0542 


3D 


DEC 


A 




0543 


28CE 


JR 


z. 


0513H 


0545 


3D 


DEC 


A 




0546 


2 8AF 


JR 


z. 


04F7H 


0548 


3D 


DEC 


A 




0549 


28BE 


JR 


z. 


0509H 


054B 


3D 


DEC 


A 




054C 


28B6 


JR 


z. 


0504H 


054E 


3D 


DEC 


A 




054F 


28BD 


JR 


z. 


050EH 


0551 


3D 


DEC 


A 




0552 


CAD4 04 


JP 


z. 


04D4H 


0555 


3D 


DEC 


A 




0556 


CAB2 04 


JP 


z. 


04B2H 


0559 


3D 


DEC 


A 




055A 


2860 


JR 


z. 


05BCH 


055C 


3D 


DEC 


A 




055D 


2866 


JR 


z. 


05C5H 


055F 


C9 


RET 






0560 


DD7E07 


LD 


A, 


(IX+07H) 


0563 


E601 


AND 


OIH 


0565 


EEOl 


XOR 


OIH 


0567 


DD7707 


LD 


(IX+07H) ,A 


056A 


C9 


RET 






056B 


3A1042 


LD 


A, 


(4210H) 


056E 


EE08 


XOR 


08H 


0570 


321042 


LD 


(4210H) ,A 


0573 


D3EC 


OUT 


(OECH) ,A 


0575 


C9 


RET 






0576 


77 


LD 


(HL) ,A 


0577 


23 


INC 


HL 


0578 


3A1042 


LD 


A, 


(4210H) 


057B 


E604 


AND 


04H 


057D 


2801 


JR 


z. 


0580H 


057F 


23 


INC 


HL 


0580 


7C 


LD 


A, 


H 


0581 


FE4 


CP 


40H 


0583 


CO 


RET 


N2 




0584 


CD0E05 


CALL 


050EH 


0587 


E5 


PUSH 


HL 


0588 


3A1442 


LD 


A, 


(4214H) 


058B 


E607 


AND 


07H 


058D 


21003C 


LD 


HL,3C00H 



BACKSPACE? 

JUMP IF SO. 

LINE FEED? 

JUMP IF SO 

CARRIAGE RETURN? 

JUMP IF SO 

CURSOR ON? 

JUMP IF SO. 

CURSOR OFF? 

JUMP IF SO 

SWAP TAB/SPECIAL CHARACTERS 

JUMP IF SO 

SPECIAL/ALTERNATES? 

JUMP IF SO 

DOUBLE SIZE? 

JUMP IF SO 

CURSOR BACK? 

JUMP IF SO 

CURSOR FORWARD 

JUMP IF SO. 

CURSOR DOWN? 

JUMP IF SO 

CURSOR UP? 

JUMP IF SO 

HOME CURSOR 

JUMP IF SO 

RESTART LINE? 

JUMP IF SO 

CLEAR TO END OF LINE? 

JUMP IF SO 

CLEAR TO END OF SCREEN? 

JUMP IF SO 

DONE 

TOGGLE TABS /ALTERNATE 

CHARACTERS FLAG 



DONE 

TOGGLE SPECIAL 

ALTERNATE CHARACTERS 

SAVE MASK 

OUTPUT IT 

DONE 

DISPLAY CHARACTER. 

ADVANCE CURSOR 

DOUBLE SIZE? 

SKIP IF NOT 
ADVANCE AGAIN 
OFF-SCREEN? 

RETURN IF NOT 
PUT CURSOR BACK ON. 
SAVE CURSOR POSITION 
GET # LINES TO PROTECT 

HL => START OF SCREEN 
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0590 


110004 


LD 


DE, 0400H 


0593 


C5 


PUSH 


BC 


0594 


014000 


LD 


BC, 0040H 


0597 


3C 


INC 


A 


0598 


09 


ADD 


HL,BC 


0599 


EB 


EX 


DE,HL 


059A 


B7 


OR 


A 


059B 


ED42 


SBC 


HL,BC 


059D 


EB 


EX 


DE,HL 


059E 


3D 


DEC 


A 


059F 


20F7 


JR 


NZ, 0598H 


05A1 


D5 


PUSH 


DE 


05A2 


E5 


PUSH 


HL 


05 A3 


B7 


OR 


A 


05A4 


ED42 


SBC 


HL,BC 


05A6 


EB 


EX 


DE,HL 


05A7 


El 


POP 


HL 


05A8 


CI 


POP 


BC 


05A9 


EDBO 


LDIR 




05AB 


CI 


POP 


BC 


05 AC 


EB 


EX 


DE,HL 


05AD 


1817 


JR 


05C6H 


05AF 


CDB2 04 


CALL 


04B2H 


05B2 


E5 


PUSH 


HL 


05B3 


CD0405 


CALL 


0504H 


05B6 


7C 


LD 


A,H 


05B7 


FE4 


CP 


40H 


05B9 


28CD 


JR 


Z, 0588H 


05BB 


Dl 


POP 


DE 


05BC 


E5 


PUSH 


HL 


05BD 


54 


LD 


D,H 


05BE 


7D 


LD 


A,L 


05BF 


F63F 


OR 


3FH 


05C1 


5F 


LD 


E,A 


05C2 


13 


INC 


DE 


05C3 


1804 


JR 


05C9H 


05C5 


E5 


PUSH 


HL 


05C6 


110040 


LD 


DE,4000H 


05C9 


3620 


LD 


(HL) ,20H 


05CB 


23 


INC 


HL 


05CC 


DF 


RST 


18H 


05CD 


2 0FA 


JR 


NZ,05C9H 


05CF 


El 


POP 


HL 


05D0 


C9 


RET 




05D1 


"RON" 






05D4 


E6F0 


AND 


OFOH 


05D6 


FE30 


CP 


30H 


05D8 


C9 


RET 




05D9 


E5 


PUSH 


HL 


05DA 


3E0E 


LD 


A,OEH 


05DC 


CD3300 


CALL 


0033H 


05DF 


48 


LD 


C,B 


05E0 


CD4 900 


CALL 


0049H 


05E3 


FE2 


CP 


20H 


05E5 


3025 


JR 


NC,060CH 


05E7 


FEOD 


CP 


ODH 


05E9 


CA6206 


JP 


Z,0662H 



DE = SIZE OF SCREEN 
SAVE BC 

BC = # CHARACTERS/LINE 
ADJUST # LINES TO PROTECT 
MOVE START DOWN ONE LINE 
REDUCE SIZE BY ONE LINE 



ONE LESS LINE TO PROTECT 
LOOP UNTIL DONE. 
SAVE DE & HL 

MOVE START BACK UP 

ONE LINE 

SOURCE = START + ONE LINE 

DEST = START OF SCREEN 

COUNT = SCREEN SIZE - ONE LINE 

SCROLL UNPROTECTED SCREEN 

RESTORE BC 

HL = CURSOR POSITION 

CLEAR TO END OF SCREEN 

MOVE TO START OF LINE 

SAVE CURSOR POSITION 

NINE DOWN ONE LINE 

OFF - SCREEN 

SCROLL IF SO. 
GET OLD CURSOR POSITION 
SAVE NEW CURSOR POSITION 
DE => END OF LINE 



DE => START OF NEXT LINE 

CLEAR TO END OF LINE 

SAVE CURSOR POSITION. 

DE => JUST OFF SCREEN 

CLEAR POSITION 

POINT TO NEXT POSITION 

DONE? 

LOOP UNTIL DONE 

RESTORE CURSOR POSITION 

DONE 

(UNUSED 
CODE) 

(UNUSED 
CODE) 

SAVE BUFFER POINTER 
TURN CURSOR ON 

C = BUFFER SIZE 
WAIT FOR INPUT 
CONTROL CHARACTER? 
JUMP IF NOT 
CARRIAGE RETURN? 
JUMP IF SO 
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05EC 


FEIF 


CP 


IFH 


CLEAR? 


05EE 


2829 


JR 


Z,0619H 


JUMP IF SO 


05F0 


FEOl 


CP 


OIH 


BREAK? 


05F2 


286D 


JR 


Z, 0661H 


JUMP IF SO 


05F4 


11E005 


LD 


DE,05E0H 


SET RETURN 


05F7 


D5 


PUSH 


DE 




05F8 


FE08 


CP 


08H 


BACKSPACE? 


05FA 


2834 


JR 


Z, 0630H 


JUMP IF SO. 


05FC 


FE18 


CP 


18H 


NON-DESTRUCTIVE BACKSPACE 


05FE 


282B 


JR 


Z,062BH 


JUMP IF SO. 


0600 


FE09 


CP 


09H 


TAB? 


0602 


2842 


JR 


Z,0646H 


JUMP IF SO. 


0604 


FE19 


CP 


19H 


LARGE CHARACTERS? 


0606 


2839 


JR 


Z, 0641H 


JUMP IF SO 


0608 


FEOA 


CP 


OAH 


LINE FEED? 


060A 


CO 


RET 


NZ 


RETURN IF NOT. 


060B 


Dl 


POP 


DE 


FIX STACK 


060C 


77 


LD 


(HL) ,A 


STORE CHARACTER IN BUFFER 


060D 


78 


LD 


A,B 


BUFFER FULL? 


060E 


B7 


OR 


A 




060F 


28CF 


JR 


Z, 05E0H 


LOOP BACK IF SO 


0611 


7E 


LD 


A, (HL) 


RESTORE CHARACTER. 


0612 


23 


INC 


HL 


POINT TO NEXT STORAGE 


0613 


CD33 00 


CALL 


0033H 


DISPLAY CHARACTER. 


0616 


05 


DEC 


B 


DECREASE AREA LEFT 


0617 


18C7 


JR 


05E0H 


LOOP FOR MORE 


0619 


CDC901 


CALL 


01C9H 


CLEAR SCREEN 


061C 


41 


LD 


B,C 


CLEAR BUFFER 


061D 


El 


POP 


HL 




061E 


E5 


PUSH 


HL 




061F 


C3E005 


JP 


05E0H 


LOOP FOR MORE 


0622 


CD3006 


CALL 


0630H 


BACKSPACE 


0625 


2B 


DEC 


HL 


GET CHARACTER BEFORE 


0626 


7E 


LD 


A, (HL) 


CURRENT POSITION 


0627 


23 


INC 


HL 




0628 


FEOA 


CP 


OAH 


IS IT A LINE FEED? 


062A 


C8 


RET 


Z 


RETURN OF SO 


062B 


78 


LD 


A,B 


IS THE BUFFER EMPTY? 


062C 


B9 


CP 


C 




062D 


20F3 


JR 


NZ,0622H 


LOOP IF NOT 


062F 


C9 


RET 




DONE 


0630 


78 


LD 


A,B 


BUFFER EMPTY? 


0631 


B9 


CP 


C 




0632 


C8 


RET 


Z 


RETURN IF SO 


0633 


2B 


DEC 


HL 


GET CHARACTER BEFORE 


0634 


7E 


LD 


A, (HL) 


CURRENT POSITION 


0635 


FEOA 


CP 


OAH 


IS IT A LINE FEED? 


0637 


23 


INC 


HL 


FIX BUFFER POSITION 


0638 


C8 


RET 


Z 


RETURN IF IT WAS 


0639 


2B 


DEC 


HL 


BACKUP ONE POSITION 


063A 


3E08 


LD 


A, 08H 


BACK CURSOR UP 


063C 


CD3300 


CALL 


0033H 




063F 


04 


INC 


B 


INCREASE AREA LEFT 


0640 


C9 


RET 




DONE 


0641 


3E17 


LD 


A,17H 


GO TO LARGE CHARACTERS. 


0643 


C33300 


JP 


0033H 




0646 


CD4803 


CALL 


0348H 


GET LINE POSITION 
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0649 


E607 


AND 


07H 


MASK OFF TOP 5 BITS 


064B 


2F 


CPL 




INVERT IT 


064C 


3C 


INC 


A 


INCREMENT IT 


064D 


C608 


ADD 


A, 08H 


AND ADD 8 TO IT 


064F 


5F 


LD 


E,A 


E IS NOW TAB LENGTH 


0650 


78 


LD 


A,B 


BUFFER FULL? 


0651 


B7 


OR 


A 




0652 


C8 


RET 


Z 


RETURN IF SO 


0653 


3E20 


LD 


A,20H 


PUT SPACE IN BUFFER 


0655 


77 


LD 


(HL) ,A 




0656 


23 


INC 


HL 


POINT TO NEXT BUFFER LOi 


0657 


D5 


PUSH 


DE 


DISPLAY SPACE 


0658 


CD3300 


CALL 


0033H 




065B 


Dl 


POP 


DE 




065C 


05 


DEC 


B 


DECREASE AREA LEFT 


065D 


ID 


DEC 


E 


DECREASE TAB LEFT 


065E 


C8 


RET 


Z 


RETURN IF DONE 


065F 


18EF 


JR 


0650H 


LOOP UNTIL DONE 


0661 


37 


SCF 




CARRY MEANS <BREAK> 


0662 


F5 


PUSH 


AF 


SAVE STATUS 


0663 


3E0D 


LD 


A, ODH 


MARK END OF BUFFER 


0665 


77 


LD 


(HL) ,A 




0666 


CD3300 


CALL 


0033H 


MOVE TO NEW LINE 


0669 


3E0F 


LD 


A, OFH 




066B 


CD3300 


CALL 


0033H 


MOVE TO NEW LINE 


066E 


79 


LD 


A,C 


B = # CHARACTERS READ 


066F 


90 


SUB 


B 




0670 


47 


LD 


B,A 




0671 


Fl 


POP 


AF 


RESTORE STATUS 


0672 


El 


POP 


HL 


RESTORE BUFFER LOCATION 


0673 


C9 


RET 




DONE. 


0674 


E5 


PUSH 


HL 


SAVE HL, IX, DE 


0675 


DDE 5 


PUSH 


IX 




0677 


D5 


PUSH 


DE 




0678 


DDEl 


POP 


IX 


IX = DE => DCB 


067A 


D5 


PUSH 


DE 




067B 


219406 


LD 


HL,0694H 


SET RETURN 


067E 


E5 


PUSH 


HL 




067F 


4F 


LD 


C,A 


C = CHARACTER TO OUTPUT 


0680 


lA 


LD 


A, (DE) 


GET DRIVER TYPE 


0681 


CB7F 


BIT 


07H,A 


DISK FILE? 


0683 


2805 


JR 


Z,068AH 


SKIP IF NOT 


0685 


AO 


AND 


B 


REQUESTED OPERATION 


0686 


B8 


CP 


B 


AVAILABLE? 


0687 


C23340 


JP 


NZ,4033H 


GO TO DOS IF SO. 


068A 


AO 


AND 


B 


SET Z = WRITE 


068B 


FE02 


CP 


02H 


NZ = READ 


068D 


DD6E01 


LD 


L, (IX+OIH) 


HL = DRIVER ADDRESS 


0690 


DD6602 


LD 


H, (IX+02H) 




0693 


E9 


JP 


(HL) 


GO TO DRIVER 


0694 


Dl 


POP 


DE 


RESTORE RESISTERS 


0695 


DDEl 


POP 


IX 




0697 


El 


POP 


HL 




0698 


CI 


POP 


BC 




0699 


C9 


RET 




DONE 


069A 


AF 


XOR 


A 


CLEAR 


069B 


329F40 


LD 


(409FH) ,A 


FLAG BITS 
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069E 


16FF 


LD 


D, OFFH 


BUFFER 2 55 BYTES 


06A0 


C38D2B 


JP 


2B8DH 


CONTINUE 


06A3 


E6FD 


AND 


OFDH 


RESET 


06A5 


329F40 


LD 


(409FH) ,A 


DATA FLAG 


06A8 


3E3A 


LD 


A,3AH 


RESTORE CHARACTER 


06AA 


B7 


OR 


A 


RESERVED WORD? 


06AB 


F2E206 


JP 


P,06E2H 


JUMP IF NOT 


06AE 


3A9F40 


LD 


A, (409FH) 


CURRENTLY IN 


06B1 


IF 


RRA 




QUOTED STRING? 


06B2 


382E 


JR 


C,06E2H 


JUMP IF SO 


06B4 


IF 


RRA 




IN 


06B5 


IF 


RRA 




REM LINE? 


06B6 


303E 


JR 


NC, 06F6H 


JUMP IF NOT 


06B8 


7E 


LD 


A, (HL) 


GET TOKEN 


06B9 


FEFB 


CP 


OFBH 


REM? 


06BB 


E5 


PUSH 


HL 


SAVE POSITION IN TEXT 


06BC 


C5 


PUSH 


BC 


SAVE POSITION IN BUFFER 


06BD 


21DF06 


LD 


HL, 6DFH 


RETURN TO 06DFH 


06C0 


E5 


PUSH 


HL 




06C1 


CO 


RET 


NZ 


CONTINUE IF NOT 


06C2 


OB 


DEC 


BC 


BACKUP IN BUFFER 


06C3 


OA 


LD 


A, (BC) 


GET CHARACTER 


06C4 


FE4D 


CP 


4DH 


"M" ? 


06C6 


CO 


RET 


NZ 


CONTINUE IF NOT 


06C7 


OB 


DEC 


BC 


BACKUP 


06C8 


OA 


LD 


A, (BC) 


GET CHARACTER. 


06C9 


FE45 


CP 


45H 


" E " ? 


06CB 


CO 


RET 


NZ 


CONTINUE IF NOT 


06CC 


OB 


DEC 


BC 


BACKUP 


06CD 


OA 


LD 


A, (BC) 


GET CHARACTER 


06CE 


FE52 


CP 


52H 


"R" 


06D0 


CO 


RET 


NZ 


CONTINUE IF NOT 


06D1 


OB 


DEC 


BC 


BACKUP 


06D2 


OA 


LD 


A, (BC) 


GET CHARACTER 


06D3 


FE3A 


CP 


3 AH 


COLON? 


06D5 


CO 


RET 


NZ 


CONTINUE IF NOT 


06D6 


Fl 


POP 


AF 


CLEAR RETURN 


06D7 


Fl 


POP 


AF 


CLEAR STACK 


06D8 


El 


POP 


HL 


GET POSITION 


06D9 


14 


INC 


D 


DECREASE 


06DA 


14 


INC 


D 


BUFFER 


06DB 


14 


INC 


D 


SIZE BY 4. 


06DC 


14 


INC 


D 




06DD 


1825 


JR 


0704H 


GET CHARACTER & CONTINUE 


06DF 


CI 


POP 


BC 


GET BUFFER POSITION 


06E0 


El 


POP 


HL 


GET TEXT POSITION 


06E1 


7E 


LD 


A, (HL) 


GET CHARACTER 


06E2 


C3892B 


JP 


2B89H 


CONTINUE 


06E5 


3A9F40 


LD 


A, (409FH) 


GET FLAG 


06E8 


F602 


OR 


02H 


SET DATA BIT 


06EA 


329F40 


LD 


(409FH) ,A 


SAVE FLAG 


06ED 


AF 


XOR 


A 


CLEAR STATUS 


06EE 


C9 


RET 




DONE 


06EF 


3A9F40 


LD 


A, (409FH) 


GET FLAG 


06F2 


F604 


OR 


04H 


SET REM BIT 


06F4 


18F4 


JR 


6EAH 


CONTINUE 


06F6 


17 


RLA 




IN DATA STATEMENT 
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06F7 


38E9 


JR 


C, 06E2H 


06F9 


7E 


LD 


A, (HL) 


06FA 


FE88 


CP 


88H 


06FC 


CCE506 


CALL 


Z, 06E5H 


06FF 


FE93 


CP 


93H 


0701 


CCEF06 


CALL 


Z, 06EFH 


0704 


7E 


LD 


A, (HL) 


0705 


C3A02B 


JP 


2 BACH 


0708 


218013 


LD 


HL, 1380H 


070B 


CDC2 9 


CALL 


09C2H 


070E 


1806 


JR 


0716H 


0710 


CDC2 9 


CALL 


09C2H 


0713 


CD8209 


CALL 


0982H 


0716 


78 


LD 


A,B 


0717 


B7 


OR 


A 


0718 


C8 


RET 


Z 


0719 


3A2441 


LD 


A, (4124H) 


071C 


B7 


OR 


A 


071D 


CAB4 9 


JP 


Z, 09B4H 


0720 


90 


SUB 


B 


0721 


300C 


JR 


NC, 072FH 


0723 


2F 


CPL 




0724 


3C 


INC 


A 


0725 


EB 


EX 


DE,HL 


0726 


CDA4 9 


CALL 


9A4H 


0729 


EB 


EX 


DE,HL 


072A 


CDB4 09 


CALL 


09B4H 


072D 


CI 


POP 


BC 


072E 


Dl 


POP 


DE 


072F 


FE19 


CP 


19H 


0731 


DO 


RET 


NC 


0732 


F5 


PUSH 


AF 


0733 


CDDF0 9 


CALL 


9DFH 


0736 


67 


LD 


H,A 


0737 


Fl 


POP 


AF 


0738 


CDD7 07 


CALL 


07D7H 


073B 


B4 


OR 


H 


073C 


212141 


LD 


HL,4121H 


073F 


F25407 


JP 


P, 0754H 


0742 


CDB707 


CALL 


07B7H 


0745 


D29607 


JP 


NC, 0796H 


0748 


23 


INC 


HL 


0749 


34 


INC 


(HL) 


074A 


CAB2 07 


JP 


Z, 07B2H 


074D 


2E01 


LD 


L,01H 


074F 


CDEB07 


CALL 


07EBH 


0752 


1842 


JR 


0796H 


0754 


AF 


XOR 


A 


0755 


90 


SUB 


B 


0756 


47 


LD 


B,A 


0757 


7E 


LD 


A, (HL) 


0758 


9B 


SBC 


A,E 


0759 


5F 


LD 


E,A 


075A 


23 


INC 


HL 


075B 


7E 


LD 


A, (HL) 


075C 


9A 


SBC 


A,D 


075D 


57 


LD 


D,A 



JUMP IF SO 

GET CHARACTER 

DATA? 

SET FLAG IF SO. 

REM? 

SET FLAG IF SO. 

GET CHARACTER 

CONTINUE 

HL=> 0.5E0 

BCDE = (HL) 

ADD BCDE & ACCUM. 

BCDE = (HL) 

BCDE = -BCDE 

GET EXPONENT OF BCDE 

CHECK IT 

0? ANSWER = ACCUM 

GET EXPONENT OF ACCUM 

CHECK IT 

0? ANSWER = BCDE 

TAKE EXPONENT DIFFERENCE 

SKIP IF POSITIVE 

DIFFERENCE = - DIFFERENCE 

SAVE DE TEMPORARILY 
PUT ACCUM ON STACK 
RESTORE DE 
PUT BCDE IN ACCUM 
GET BCDE FROM STACK 

IF DIFFERENCE > 24, EXIT 

ANSWER = # WITH GREATER EXPONENT 

SAVE EXPONENT DIFFERENCE 

TURN ON MSB, BOTH NUMBERS 

H = RE RUT SIGN 

RESTORE - EXPONENT DIFFERENCE 

SHIFT CDE RIGHT 

CHECK SIGN 

HL => ACCUM 

SKIP IF SIGN NEGATIVE 

CDE = CDE + ACCUM 

EXIT IF NO OVERFLOW 

INCREASE EXPONENT 

BY 1 

ERROR IF EXPONENT = 

SHIFT COEFFICIENT 

RIGHT ONE BIT 

NORMALIZE & RETURN 

CLEAR STATUS 

CDE = ACCUM - CDE 
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075E 


23 


INC 


HL 




075F 


7E 


LD 


A, (HL) 




0760 


99 


SBC 


A,C 




0761 


4F 


LD 


C,A 




0762 


DCC307 


CALL 


C,07C3H 


INVERT SIGN IF NECESSARY 


0765 


68 


LD 


L,B 


SAVE B & E 


0766 


63 


LD 


H,E 


IN L & H 


0767 


AF 


XOR 


A 


LEFT SHIFT = 


0768 


47 


LD 


B,A 


B = BITS LEFT SHIFTED 


0769 


79 


LD 


A,C 


TEST BYTE 


076A 


B7 


OR 


A 




076B 


2018 


JR 


NZ,0785H 


NORMALIZE IF NON-ZERO 


076D 


4A 


LD 


CD 


C <= D ROTATE 


076E 


54 


LD 


D,H 


D <= H TO 


076F 


65 


LD 


H,L 


H <= L NEXT 


0770 


6F 


LD 


L,A 


L <= A REGISTER. 


0771 


78 


LD 


A,B 


A <= B 


0772 


D608 


SUB 


08H 


A = A - 8 


0774 


FEEO 


CP 


OEOH 


A = -32 


0776 


20F0 


JR 


NZ,0768H 


LOOP IF NOT. 


0778 


AF 


XOR 


A 


SET ACCUM 


0779 


322441 


LD 


(4124H) ,A 


TO ZERO 


077C 


C9 


RET 




DONE 


077D 


05 


DEC 


B 


COUNT # LEFT SHIFTS 


077E 


29 


ADD 


HL,HL 


SHIFT HL LEFT 


077F 


7A 


LD 


A,D 


SHIFT D LEFT + CARRY. 


0780 


17 


RLA 






0781 


57 


LD 


D,A 




0782 


79 


LD 


A,C 


SHIFT C LEFT + CARRY 


0783 


8F 


ADC 


A, A 




0784 


4F 


LD 


C,A 




0785 


F27D07 


JP 


P,077DH 


LOOP IF MSB = 


0788 


78 


LD 


A,B 


A = # BITS LEFT SHIFTED. 


0789 


5C 


LD 


E,H 


RESTORE E & B 


078A 


45 


LD 


B,L 




078B 


B7 


OR 


A 


NO LEFT SHIFTS? 


078C 


2808 


JR 


Z,0796H 


SKIP IF SO 


078E 


212441 


LD 


HL,4124H 


POINT TO EXPONENT 


0791 


86 


ADD 


A, (HL) 


ADD # OF LEFT SHIFTS 


0792 


77 


LD 


(HL) ,A 


SAVE NEW EXPONENT 


0793 


30E3 


JR 


NC, 0778H 




0795 


C8 


RET 


Z 


RETURN IF ZERO. 


0796 


78 


LD 


A,B 


LOAD LSB 


0797 


212441 


LD 


HL,4124H 


POINT TO ACCUM 


079A 


B7 


OR 


A 


IS LSB NEGATIVE? 


079B 


FCA8 07 


CALL 


M, 07A8H 


TEST FOR OVERFLOW IF SO 


079E 


46 


LD 


B, (HL) 


GET EXPONENT TO B. 


079F 


23 


INC 


HL 


NEXT LOCATION 


07A0 


7E 


LD 


A, (HL) 


GET SIGN 


07A1 


E680 


AND 


BOH 


MASK OFF IRRELEVANT BITS 


07 A3 


A9 


XOR 


C 


TOGGLE COEFFICIENT SIGN 


07A4 


4F 


LD 


C,A 


SAVE IT. 


07A5 


C3B409 


JP 


09B4H 


ACCUM = BCDE DONE. 


07A8 


IC 


INC 


E 


IF CDE IS NEGATIVE 


07A9 


CO 


RET 


NZ 


CONVERT ALL 


07AA 


14 


INC 


D 


TRAILING ONES TO 


07AB 


CO 


RET 


NZ 


ZEROS 
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07AC OC 
07AD CO 
07AE 0E80 
07B0 34 
07B1 CO 
07B2 lEOA 
07B4 C3A219 
07B7 7E 
07B8 83 
07B9 5F 
07BA 23 
07BB 7E 
07BC 8A 
07BD 57 
07BE 23 
07BF 7E 
07C0 89 
07C1 4F 
07C2 C9 



07D7 
07D9 
07DB 
07DD 
07DE 
07DF 
07E0 
07E2 
07E4 
07E6 
07E7 
07E8 
07E9 
07EA 
07EB 
07EC 
07ED 



0600 

D608 

3807 

43 

5A 

51 

OEOO 

18F5 

C609 

6F 

AF 

2D 

C8 

79 

IF 

4F 

7A 



INC 

RET 

LD 

INC 

RET 

LD 

JP 

LD 

ADD 

LD 

INC 

LD 

ADC 

LD 

INC 

LD 

ADC 

LD 

RET 

NET 



C 
NZ 

C,80H 
(HL) 
NZ 

E, OAH 
19A2H 
A, (HL) 
A,E 
E,A 
HL 

A, (HL) 
A,D 
D,A 
HL 

A, (HL) 
A,C 
C,A 



NOW CONVERT BACK 

RETURN IF NO OVERFLOW 
OV ERROR 6 . 
GO TO ERROR ROUTINE 
E = E + (HL) 



NEXT HL 

D = D + (HL) + CARRY 



NEXT HL 

C=C+ (HL + CARRY 



RESULT 



CDE = 



DONE 
(HL) + CDE 



07C3 


212541 


LD 


HL,4125H 


INVERT SIGN FLAG 


07C6 


7E 


LD 


A, (HL) 






07C7 


2F 


CPL 










07C8 


77 


LD 


(HL) 


,A 






07C9 


AF 


XOR 


A 




CLEAR STATUS 


07CA 


6F 


LD 


L,A 




L = 





07CB 


90 


SUB 


B 




B = 


- B 


07CC 


47 


LD 


B,A 








07CD 


7D 


LD 


A,L 




E = 


- E - CARRY 


07CE 


9B 


SBC 


A,E 








07CF 


5F 


LD 


E,A 








07D0 


7D 


LD 


A,L 




D = 


- D - CARRY 


07D1 


9A 


SBC 


A,D 








07D2 


57 


LD 


D,A 








07D3 


7D 


LD 


A,L 




C = 


- C - CARRY 


07D4 


99 


SBC 


A,C 








07D5 


4F 


LD 


C,A 








07D6 


C9 


RET 






DONE 






NET 


RESULT : 


CDE = 


- CDE. 


, (SIGN INVERTED) 



LD 

SUB 

JR 

LD 

LD 

LD 

LD 

JR 

ADD 

LD 

XOR 

DEC 

RET 

LD 

RRA 

LD 

LD 



B, OOH 
08H 

C, 07E4H 
B,E 
E,D 
D,C 

C, OOH 

07D9H 

A, 09H 

L,A 

A 

L 

Z 

A,C 

C,A 
A,D 



B = 

SHIFT 8 BITS? 

BIT SHIFT IF LESS 

BYTE SHIFT B <= E 

E <= D 

D <= C 

C <= 

LOOP UNTIL DONE 

L = # BITS TO SHIFT 

CLEAR STATUS 

ONE LESS BIT TO SHIFT 

RETURN IF DONE 

SHIFT C RIGHT TO CARRY. 



SHIFT D RIGHT TO CARRY 
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07EE 


IF 


RRA 






07EF 


57 


LD 


D,A 




07F0 


7B 


LD 


A,E 


SHIFT E RIGHT TO CARRY 


07F1 


IF 


RRA 






07F2 


5F 


LD 


E,A 




07F3 


78 


LD 


A,B 


SHIFT B RIGHT TO CARRY 


07F4 


IF 


RRA 






07F5 


47 


LD 


B,A 




07F6 


18EF 


JR 


07E7H 


LOOP UNTIL DONE. 


07F8 


00 00 00 


81 




SINGLE PRECISION 1.0 


07FC 


03 






# LN COEFFICIENTS. 


07FD 


AA 56 19 


80 




S.P. 0.5988 


0801 


Fl 22 76 


80 




S.P. 0.96145 


0805 


45 AA 38 


82 




S.P. 2.88539 


0809 


CD5509 


CALL 


0955H 


GET SIGN OF ACCUM 


080C 


B7 


OR 


A 


CHECK IT 


080D 


EA4A1E 


JP 


PE,1E4AH 


ERROR IF NEGATIVE 


0810 


212441 


LD 


HL,4124H 


GET EXPONENT 


0813 


7E 


LD 


A, (HL) 




0814 


013580 


LD 


BC,8035H 


BCDE = 0.707092 


0817 


11F304 


LD 


DE, 04F3H 


LOG OF 2 


081A 


90 


SUB 


B 


GET DIFFERENCE IN EXPONENTS 


081B 


F5 


PUSH 


AF 


SAVE IT 


081C 


70 


LD 


(HL) ,B 


MAKE EXPONENTS SAME 


081D 


D5 


PUSH 


DE 


SAVE BCDE 


081E 


C5 


PUSH 


BC 




081F 


CD1607 


CALL 


0716H 


ACCUM = ACCUM + BCDE 


0822 


CI 


POP 


BC 


RESTORE BCDE 


0823 


Dl 


POP 


DE 




0824 


04 


INC 


B 


BCDE = 1.4142E0 


0825 


CDA2 08 


CALL 


8A2H 


ACCUM = 1.4142/ACCUM 


0828 


21F807 


LD 


HL,07F8H 


HL => l.OEO 


082B 


CD1007 


CALL 


0710H 


ACCUM = ACCUM +1.0 


082E 


21FC07 


LD 


HL, 07FCH 


HL => LOG COEFFICIENTS 


0831 


CD9A14 


CALL 


14 9 AH 


EXPAND POWER SERIES 


0834 


018080 


LD 


BC, 8080H 


BCDE = -0.5E0 


0837 


110000 


LD 


DE,OOOOH 




083A 


CD1607 


CALL 


0716H 


ACCUM = ACCUM - 0.5 


083D 


Fl 


POP 


AF 


RESTORE SCALE FACTOR 


083E 


CD890F 


CALL 


0F89H 


SCALE ACCUM 


0841 


013180 


LD 


BC, 8031H 


BCDE = 0.693115E0 


0844 


111872 


LD 


DE,7218H 


MULTIPLY BY ACCUM & RETURN 


0847 


CD5509 


CALL 


0955H 


TEST SIGN & EXPONENT 


084A 


C8 


RET 


Z 


RETURN IF ZERO 


084B 


2E00 


LD 


L,OOH 


ADD EXPONENTS 


084D 


CD1409 


CALL 


0914H 




0850 


79 


LD 


A,C 


SAVE MSB OF BCDE 


0851 


324F41 


LD 


(414FH) ,A 




0854 


EB 


EX 


DE,HL 


SAVE REST OF BCDE 


0855 


225041 


LD 


(4150H) ,HL 




0858 


010000 


LD 


BC, OOOOH 


BC = 


085B 


50 


LD 


D,B 


DE = 


085C 


58 


LD 


E,B 




085D 


216507 


LD 


HL, 0765H 


CONVERT TO SP WHEN 


0860 


E5 


PUSH 


HL 


DONE 


0861 


216908 


LD 


HL, 0869H 


CALL 08 6 9 THREE TIMES & 


0864 


E5 


PUSH 


HL 


UNPACK ALL 
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0865 


E5 


PUSH 


HL 


3 BYTES OF COEFFICIENT 


0866 


212141 


LD 


HL,4121H 


HL => AC CUM 


0869 


7E 


LD 


A, (HL) 


GET BYTE 


086A 


23 


INC 


HL 


POINT TO NEXT BYTE 


086B 


B7 


OR 


A 


TEST BYTE. 


086C 


2824 


JR 


Z, 0892H 


JUMP IF ZERO. 


086E 


E5 


PUSH 


HL 


SAVE POINTER 


086F 


2E08 


LD 


L, 08H 


RIGHT SHIFT 8 BITS 


0871 


IF 


RRA 




SHIFT BYTE SO CARRY 


0872 


67 


LD 


H,A 


SAVE SHIFTED BYTE 


0873 


79 


LD 


A,C 


PUT MSB OF BCDE IN A 


0874 


300B 


JR 


NC,0881H 


SKIP IF NO ADD 


0876 


E5 


PUSH 


HL 


SAVE HL 


0877 


2A5041 


LD 


HL, (4150H) 


ADD SHIFTED DE 


087A 


19 


ADD 


HL,DE 


TO OLD DE 


087B 


EB 


EX 


DE,HL 


SAVE IN DE 


087C 


El 


POP 


HL 


RESTORE HL 


087D 


3A4F41 


LD 


A, (414FH) 


ADD SHIFTED C 


0880 


89 


ADC 


A,C 


TO OLD C. 


0881 


IF 


RRA 




SHIFT C RIGHT 


0882 


4F 


LD 


C,A 




0883 


7A 


LD 


A,D 


SHIFT D RIGHT 


0884 


IF 


RRA 






0885 


57 


LD 


D,A 




0886 


7B 


LD 


A,E 


SHIFT E RIGHT 


0887 


IF 


RRA 






0888 


5F 


LD 


E,A 




0889 


78 


LD 


A,B 


SHIFT B RIGHT 


088A 


IF 


RRA 






088B 


47 


LD 


B,A 




088C 


2D 


DEC 


L 


ONE LESS BIT TO SHIFT 


088D 


7C 


LD 


A,H 




088E 


20E1 


JR 


NZ, 0871H 


LOOP UNTIL DONE. 


0890 


El 


POP 


HL 


RESTORE POINTER 


0891 


C9 


RET 




GO TO NEXT STEP 


0892 


43 


LD 


B,E 


ROTATE BCDE 


0893 


5A 


LD 


E,D 


LEFT ONE BYTE 


0894 


51 


LD 


D,C 




0895 


4F 


LD 


C,A 




0896 


C9 


RET 






0897 


CDA4 9 


CALL 


9A4H 


PUT AOCUM ON STACK. 


089A 


21D80D 


LD 


HL,0DD8H 


HL => lO.OEO 


089D 


CDB109 


CALL 


09B1H 


PUT (HL) IN ACCUM 


08A0 


CI 


POP 


BC 


LOAD BCDE 


08A1 


Dl 


POP 


DE 


FROM STACK 


08A2 


CD5509 


CALL 


0955H 


TEST SIGN & EXPONENT 


08A5 


CA9A19 


JP 


Z,199AH 


JUMP IF ERROR /O 


08A8 


2EFF 


LD 


L, OFFH 


SUBTRACT EXPONENTS, 


08AA 


CD1409 


CALL 


0914H 


SET MSB'S & SIGN 


08 AD 


34 


INC 


(HL) 


DIVIDEND = 


08AE 


34 


INC 


(HL) 


DIVIDEND * 4 


08AF 


2B 


DEC 


HL 


POINT TO MSB 


08B0 


7E 


LD 


A, (HL) 


GET IT 


08B1 


328940 


LD 


(4089H) ,A 


SAVE IT 


08B4 


2B 


DEC 


HL 


POINT TO NMSB 


08B5 


7E 


LD 


A, (HL) 


GET IT 


08B6 


328540 


LD 


(4085H) ,A 


SAVE IT. 
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08B9 


2B 


DEC 


HL 


08BA 


7E 


LD 


A, (HL) 


08BB 


328140 


LD 


(4081H) ,A 


08BE 


41 


LD 


B,C 


08BF 


EB 


EX 


DE,HL 


08C0 


AF 


XOR 


A 


08C1 


4F 


LD 


C,A 


08C2 


57 


LD 


D,A 


08C3 


5F 


LD 


E,A 


08C4 


328C40 


LD 


(408CH) ,A 


08C7 


E5 


PUSH 


HL 


08C8 


C5 


PUSH 


BC 


08C9 


7D 


LD 


A,L 


08CA 


CD8040 


CALL 


4080H 


08CD 


DEOO 


SBC 


A,OOH 


08CF 


3F 


CCF 




08D0 


3007 


JR 


NC,08D9H 


08D2 


328C40 


LD 


(408CH) ,A 


08D5 


Fl 


POP 


AF 


08D6 


Fl 


POP 


AF 


08D7 


37 


SCF 




08D8 


D2 






08D9 


CI 


POP 


BC 


08DA 


El 


POP 


HL 


08DB 


79 


LD 


A,C 


08DC 


3C 


INC 


A 


08DD 


3D 


DEC 


A 


08DE 


IF 


RRA 




08DF 


FA9707 


JP 


M, 0797H 


08E2 


17 


RLA 




08E3 


7B 


LD 


A,E 


08E4 


17 


RLA 




08E5 


5F 


LD 


E,A 


08E6 


7A 


LD 


A,D 


08E7 


17 


RLA 




08E8 


57 


LD 


D,A 


08E9 


79 


LD 


A,C 


08EA 


17 


RLA 




08EB 


4F 


LD 


C,A 


08EC 


29 


ADD 


HL,HL 


08ED 


78 


LD 


A,B 


08EE 


17 


RLA 




08EF 


47 


LD 


B,A 


08F0 


3A8C40 


LD 


A, (408CH) 


08F3 


17 


RLA 




08F4 


328C40 


LD 


(408CH) ,A 


08F7 


79 


LD 


A,C 


08F8 


B2 


OR 


D 


08F9 


B3 


OR 


E 


08FA 


20CB 


JR 


NZ,08C7H 


08FC 


E5 


PUSH 


HL 


08FD 


212441 


LD 


HL,4124H 


0900 


35 


DEC 


(HL) 


0901 


El 


POP 


HL 


0902 


20C3 


JR 


NZ,08C7H 


0904 


C3B207 


JP 


07B2H 


0907 


3EFF 


LD 


A,OFFH 



POINT TO LSB 

GET IT 

SAVE IT 

B = MSB OF DIVISOR 

HL = ISB, DE => ACCUM 

SET REGISTER 

VALUE TO ZERO 



OVERFLOW COUNT = 

SAVE OLD REGISTER VALUE (BHL) 

GET OLD REGISTER LSB 

BHL = OHL - ACCUM 

OVERFLOW = OVERFLOW - CARRY 

INVERT CARRY FLAG 

SKIP IF ACCUM > BHL 

SAVE OVERFLOW COUNT 

DISCARD OLD BHL 

MASK TO 08DBH 

RESTORE OLD BHL 

TEST FOR OVERFLOW 
INTO C 



NORMALIZE & RETURN IF SO. 
SHIFT CDE LEFT 



SHIFT BHL LEFT 



UPDATE OVERFLOW 
COUNTER 

TEST CDE (DIVISOR) 



LOOP IF NON-ZERO 

SAVE HL 

DECREMENT EXPONENT 

OF ACCUM 

RESTORE HL 

LOOP IF EXPONENT GOOD. 

EXPONENT ZERO ERROR. 

SET TO NEGATE SIGN 
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0909 


2E 






0909 


AF 


XOR 


A 


090B 


212D41 


LD 


HL,412DH 


090E 


4E 


LD 


C, (HL) 


090F 


23 


INC 


HL 


0910 


AE 


XOR 


(HL) 


0911 


47 


LD 


B,A 


0912 


2E00 


LD 


L, OOH 


0914 


78 


LD 


A,B 


0915 


B7 


OR 


A 


0916 


281F 


JR 


Z, 0937H 


0918 


7D 


LD 


A,L 


0919 


212441 


LD 


HL,4124H 


091C 


AE 


XOR 


(HL) 


091D 


80 


ADD 


A,B 


091E 


47 


LD 


B,A 


091F 


IF 


RRA 




0920 


A8 


XOR 


B 


0921 


78 


LD 


A,B 


0922 


F23609 


JP 


P,0936H 


0925 


C680 


ADD 


A, 80H 


0927 


77 


LD 


(HL) ,A 


0928 


CA9008 


JP 


Z, 0890H 


092B 


CDDF09 


CALL 


09DFH 


092E 


77 


LD 


(HL) ,A 


092F 


2B 


DEC 


HL 


0930 


C9 


RET 




0931 


CD5509 


CALL 


0955H 


0934 


2F 


CPL 




0935 


El 


POP 


HL 


0936 


B7 


OR 


A 


0937 


El 


POP 


HL 


0938 


F27807 


JP 


P, 0778H 


093B 


C3B207 


JP 


07B2H 


093E 


CDBF09 


CALL 


09BFH 


0941 


78 


LD 


A,B 


0942 


B7 


OR 


A 


0943 


C8 


RET 


Z 


0944 


C602 


ADD 


A, 02H 


0946 


DAB2 07 


JP 


C,07B2H 


0949 


47 


LD 


B,A 


094A 


CD1607 


CALL 


0716H 


094D 


212441 


LD 


HL,4124H 


0950 


34 


INC 


(HL) 


0951 


CO 


RET 


NZ 


0952 


C3B207 


JP 


07B2H 


0955 


3A2441 


LD 


A, (4124H) 


0958 


B7 


OR 


A 


0959 


C8 


RET 


Z 


095A 


3A2341 


LD 


A, (4123H) 


095D 


FE 






095E 


2F 


CPL 




095F 


17 


RLA 




0960 


9F 


SBC 


A, A 


0961 


CO 


RET 


NZ 


0962 


3C 


INC 


A 


0963 


C9 


RET 





MAKE TO 9 0BH 

HL => MSB OF ACCUM 2 

C =MSB 

HL => EXPONENT OF ACCUM 2 

MAKE IT + OR - AS REQUIRED 

B = NEW EXPONENT 

L = MASK 

GET EXPONENT 

CHECK IT 

EXIT IF ZERO 

GET MASK 

HL => EXPONENT OF ACCUM 

CHANGE SIGN AS NECESSARY 

ADD EXPONENTS 

SAVE B 

TEST FOR CARRY 

RESTORE EXPONENT TO A 

EXIT IF OUT OF RANGE 

SET BIT 7 

SAVE NEW EXPONENT 

JUMP IF 

TURN ON MSB 

SAVE EXPONENT 

HL => MSB 

DONE 

GET SIGN OF ACCUM 

INVERT IT 

FIX STACK 

SET STATUS FLAGS 

FIX STACK 

SET TO ZERO IF NECESSARY 

OV ERROR 

LOAD ACCUM TO BCDE 

GET EXPONENT 

TEST IT 

RETURN IF ZERO 

BCDE = BCDE * 4 

OVERFLOW ERROR IF TOO LARGE 

SAVE EXPONENT 

ACCUM = ACCUM + BCDE * 4 

POINT TO EXPONENT 

ACCUM = ACCUM * 2 

RETURN IF NO OVERFLOW 

ERROR IF OVERFLOW 

GET EXPONENT OF ACCUM 

TEST IT 

RETURN IF ZERO 

GET MSB OF ACCUM 

MASK TO 095FH 

INVERT 

CARRY = SIGN BIT 

A = - CARRY 

RETURN - 1 IF NEGATIVE 

+ 1 IF POSITIVE 

DONE 
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NET RESULT: 

GIVEN A SINGLE OR DOUBLE 

PRECISION NUMBER IN 

ACCUM, THIS ROUTINE RETURNS 

A = SGN (ACCUM) . 



0964 
0966 
0969 
096C 
096D 
096E 
0970 
0971 
0973 
0974 
0977 
097A 
097B 
097C 
097F 
0982 
0985 
0986 
0988 
0989 
098A 
098D 
098E 
098F 
0990 
0991 
0994 
0995 
0998 
099B 
099E 
099F 
09A0 
9A1 
9A2 
9A4 
9A5 
09A8 
09A9 
09AA 
9 AD 
9AE 
9AF 
09B0 
09B1 
09B4 
09B5 
09B8 
09B9 
9BA 



0688 

110000 

212441 

4F 

70 

0600 

23 

3680 

17 

C36207 

CD9409 

FO 

E7 

FA5B0C 

CAF6 0A 

212341 

7E 

EE80 

77 

C9 

CD9409 

6F 

17 

9F 

67 

C3 9A0A 

E7 

CAF6 0A 

F25509 

2A2141 

7C 

B5 

C8 

7C 

18BB 

EB 

2A2141 

E3 

E5 

2A2341 

E3 

E5 

EB 

C9 

CDC2 9 

EB 

222141 

60 

69 

222341 



LD 

LD 

LD 

LD 

LD 

LD 

INC 

LD 

RLA 

JP 

CALL 

RET 

RST 

JP 

JP 

LD 

LD 

XOR 

LD 

RET 

CALL 

LD 

RLA 

SBC 

LD 

JP 

RST 

JP 

JP 

LD 

LD 

OR 

RET 

LD 

JR 

EX 

LD 

EX 

PUSH 

LD 

EX 

PUSH 

EX 

RET 

CALL 

EX 

LD 

LD 

LD 

LD 



B,88H 
DE, OOOOH 
HL,4124H 
C,A 

(HL) ,B 
B, OOH 
HL 

(HL) , 80H 

0762H 

0994H 

P 

20H 

M, 0C5BH 

Z, 0AF6H 

HL,4123H 

A, (HL) 

80H 

(HL) ,A 

0994H 
L,A 

A, A 

H,A 

0A9AH 

20H 

Z, 0AF6H 

P,0955H 

HL, (4121H) 

A,H 

L 

Z 

A,H 

095FH 

DE,HL 

HL, (4121H) 

(SP) ,HL 
HL 
HL, (4123H) 

(SP) ,HL 
HL 
DE,HL 



09C2H 
DE,HL 

(4121H) 
H,B 
L,C 

(4123H) 



HL 



HL 



B = INITIAL EXPONENT 
INITIALIZE DE 
HL => EXPONENT OF ACCUM 
C = MSB OF INTEGER 
SAVE EXPONENT 
INITIALIZE B 
POINT TO SIGN BYTE 
SIGN = + 

PUT SIGN IN CARRY 
NORMALIZE & RETURN 
GET SIGN OF ACCUM 
RETURN IF POSITIVE 
GET TYPE OF ACCUM 
JUMP IF INTEGER 
ERROR IF STRING 
MAKE FLOATING POINT 
NUMBER POSITIVE 



DONE 

GET SIGN OF ACCUM 

PUT IT IN L. 

PUT SIGN IN CARRY 

H = OR -1 

ACCORDING TO SIGN 

PUT HL IN ACCUM 

FIND DATA TYPE 

ERROR - STRING JUMP. 

JUMP IF FLOATING POINT 

GET INTEGER IN ACCUM 

TEST IF ZERO 

RETURN IF SO 

FIX ACCUMULATOR 

DETERMINE SIGN & RETURN 

SAVE HL FOR NOW 

GET LSB & MSB OF ACCUM 

GET RETURN & SAVE DATA 

SAVE RETURN 

GET MSB & EXPONENT OF ACCUM 

GET RETURN & SAVE DATA 

SAVE RETURN 

RESTORE HL 

DONE 

BCDE = (HL) 

SAVE HL. STORE DE 

IN ACCUM 

STORE BC 

IN 

ACCUM 
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9BD 


EB 


EX 


DE,HL 


RESTORE HL 


09BE 


C9 


RET 




DONE 


09BF 


212141 


LD 


HL,4121H 


HL => AC CUM 


09C2 


5E 


LD 


E, (HL) 


BCDE = (HL) 


09C3 


23 


INC 


HL 




09C4 


56 


LD 


D, (HL) 




09C5 


23 


INC 


HL 




09C6 


4E 


LD 


C, (HL) 




09C7 


23 


INC 


HL 




09C8 


46 


LD 


B, (HL) 




09C9 


23 


INC 


HL 




9CA 


C9 


RET 




DONE 


09CB 


112141 


LD 


DE,4121H 


MOVE FROM ACCUM 


09CE 


0604 


LD 


B, 04H 


FOUR BYTES 


09D0 


1805 


JR 


09D7H 


MOVE IT 


09D2 


EB 


EX 


DE,HL 


SOURCE & DESTINATION GIVEN 


09D3 


3AAF4 


LD 


A, (40AFH) 


GET DATA LENGTH 


09D6 


47 


LD 


B,A 


PUT IT IN B 


09D7 


lA 


LD 


A, (DE) 


GET DATA 


09D8 


77 


LD 


(HL) ,A 


SAVE DATA 


09D9 


13 


INC 


DE 


POINT TO NEXT SOURCE 


09DA 


23 


INC 


HL 


POINT TO NEXT DESTINATION 


9DB 


05 


DEC 


B 


ONE LESS BYTE TO MOVE 


09DC 


20F9 


JR 


NZ, 09D7H 


LOOP UNTIL DONE 


9DE 


C9 


RET 




DONE 


09DF 


212341 


LD 


HL,4123H 


POINT TO MSB OF ACCUM 


09E2 


7E 


LD 


A, (HL) 


GET MSB 


09E3 


07 


RLCA 




CARRY = COEFFICIENT SIGN 


09E4 


37 


SCF 




SET HIGHEST BIT 


09E5 


IF 


RRA 




SAVE BIT & RESTORE SIGN 


09E6 


77 


LD 


(HL) ,A 


SAVE NEW MSB 


09E7 


3F 


CCF 




INVERT OLD SIGN 


09E8 


IF 


RRA 




PUT IN BIT 7 


09E9 


23 


INC 


HL 


HL => SIGN BYTE 


9EA 


23 


INC 


HL 




09EB 


77 


LD 


(HL) ,A 


SAVE NEW SIGN 


09EC 


79 


LD 


A,C 


GET MSB OF ACCUM 


09ED 


07 


RLCA 




CARRY = COEFFICIENT SIGN 


09EE 


37 


SCF 




SET HIGHEST BIT 


09EF 


IF 


RRA 




SAVE BIT AND RESTORE SIGN 


09F0 


4F 


LD 


C,A 


SAVE NOR MSB 


09F1 


IF 


RRA 




PUT SIGN IN BIT 7 


09F2 


AE 


XOR 


(HL) 


COMPUTE COMBINED SIGN 


09F3 


C9 


RET 




DONE 


09F4 


212741 


LD 


HL,4127H 


MOVE DATA FROM 


09F7 


11D209 


LD 


DE, 09D2H 


ACCUM 2 


9FA 


1806 


JR 


0A02H 


TO ACCUM 


09FC 


212741 


LD 


HL,4127H 


NONE DATA TO 


09FF 


11D309 


LD 


DE, 09D3H 


ACCUM 2 FROM ACCUM 


0A02 


D5 


PUSH 


DE 


SAVE RETURN ADDRESS 


0A03 


112141 


LD 


DE,4121H 


FROM/TO ACCUM 


0A06 


E7 


RST 


20H 


CHECK DATA TYPE 


0A07 


D8 


RET 


C 


CONTINUE IF NOT D.P. 


0A08 


111D41 


LD 


DE,411DH 


ADJUST TO D.P. 


OAOB 


C9 


RET 




CONTINUE 


OAOC 


78 


LD 


A,B 


REGISTER VALUE 0? 


OAOD 


B7 


OR 


A 
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OAOE 


CA5509 


JP 


Z, 0955H 


OAll 


215E09 


LD 


HL,095EH 


0A14 


E5 


PUSH 


HL 


0A15 


CD5509 


CALL 


0955H 


0A18 


79 


LD 


A,C 


0A19 


C8 


RET 


Z 


OAIA 


212341 


LD 


HL,4123H 


OAID 


AE 


XOR 


(HL) 


OAIE 


79 


LD 


A,C 


OAIF 


F8 


RET 


M 


0A2 


CD2 6 0A 


CALL 


0A2 6H 


0A2 3 


IF 


RRA 




0A24 


A9 


XOR 


C 


0A2 5 


C9 


RET 




0A2 6 


23 


INC 


HL 


0A2 7 


78 


LD 


A,B 


0A2 8 


BE 


CP 


(HL) 


0A2 9 


CO 


RET 


NZ 


0A2A 


2B 


DEC 


HL 


0A2B 


79 


LD 


A,C 


0A2C 


BE 


CP 


(HL) 


0A2D 


CO 


RET 


NZ 


0A2E 


2B 


DEC 


HL 


0A2F 


7A 


LD 


A,D 


0A3 


BE 


CP 


(HL) 


0A31 


CO 


RET 


NZ 


0A32 


2B 


DEC 


HL 


0A3 3 


7B 


LD 


A,E 


0A34 


96 


SUB 


(HL) 


0A3 5 


CO 


RET 


NZ 


0A3 6 


El 


POP 


HL 


0A3 7 


El 


POP 


HL 


0A3 8 


C9 


RET 




0A3 9 


7A 


LD 


A,D 


0A3A 


AC 


XOR 


H 


0A3B 


7C 


LD 


A,H 


0A3C 


FA5F09 


JP 


M,095FH 


0A3F 


BA 


CP 


D 


0A4 


C26009 


JP 


NZ, 0960H 


0A4 3 


7D 


LD 


A,L 


0A44 


93 


SUB 


E 


0A4 5 


C26009 


JP 


NZ,0960H 


0A4 8 


C9 


RET 




0A4 9 


212741 


LD 


HL,4127H 


0A4C 


CDD3 09 


CALL 


09D3H 


0A4F 


112E41 


LD 


DE,412EH 


0A52 


lA 


LD 


A, (DE) 


0A53 


B7 


OR 


A 


0A54 


CA5509 


JP 


Z, 0955H 


0A57 


215E09 


LD 


HL,095EH 


0A5A 


E5 


PUSH 


HL 


0A5B 


CD5509 


CALL 


0955H 


0A5E 


IB 


DEC 


DE 


0A5F 


lA 


LD 


A, (DE) 


0A6 


4F 


LD 


C,A 


0A61 


C8 


RET 


Z 


0A62 


212341 


LD 


HL,4123H 



RETURN SIGN OF AC CUM 

SET RETURN THROUGH 

SIGN ROUTINE 

GET SIGN OF ACCUM 

GET MSB OF BCDE 

RETURN IF NOT S.P. 

HL => ACCUM MSB 

COMPARE MSBS 

FIX MSB 

EXIT IF DIFFERENT SIGNS 

COMPARE BCDE & ACCUM 

GET CARRY FROM COMPARISON 

COMBINE WITH BCDE SIGN 

CONTINUE 

HL => EXPONENT OF ACCUM 

COMPARE EXPONENTS 

B - (HL) 

RETURN ANSWER IF NON-ZERO 

HL => MSB OF ACCUM 

COMPARE: C - (HL) 

RETURN ANSWER IF NON-ZERO 
HL => MSB OF ACCUM 
COMPARE: D - (HL) 

RETURN ANSWER IF NON-ZERO 
HL => LSB OF ACCUM 
COMPARE: E - (HL) 

RETURN ANSWER IF NON-ZERO 
SKIP SIGN ROUTINE 

RETURN FOR MATCH 

COMPARE SIGN OF 

DE & HL 

PUT H IN A 

EXIT A = -1 

COMPARE D & 

RETURN SIGN IF UNLIKE 

COMPARE E & L 



(SIGNS UNLIKE) 
H 



RETURN SIGN IF UNLIKE 

RETURN IF ALIKE 

MOVE GIVEN DATA 

TO ACCUM 2 

TEST D.P. EXPONENT 

OF ACCUM 2 

0? RESULT IS SIGN OF ACCUM 

RETURN THROUGH 

SIGN ROUTINE 

GET SIGN OF ACCUM 

GET MSB OF ACCUM2 

SAVE IT 

ACCUM =0? RETURN SIGN OF ACCUM 2 

POINT TO MSB OF ACCUM 
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0A6 5 


AE 


XOR 


(HL) 


0A6 6 


79 


LD 


A,C 


0A6 7 


F8 


RET 


M 


0A6 8 


13 


INC 


DE 


0A6 9 


23 


INC 


HL 


0A6A 


0608 


LD 


B, 08H 


0A6C 


lA 


LD 


A, (DE) 


0A6D 


96 


SUB 


(HL) 


0A6E 


C2230A 


JP 


NZ, 0A2 3H 


0A71 


IB 


DEC 


DE 


0A72 


2B 


DEC 


HL 


0A73 


05 


DEC 


B 


0A74 


20F6 


JR 


NZ, 0A6CH 


0A76 


CI 


POP 


BC 


0A77 


C9 


RET 




0A78 


CD4F0A 


CALL 


0A4FH 


0A7B 


C25E09 


JP 


NZ,095EH 


0A7E 


C9 


RET 




0A7F 


E7 


RST 


20H 


0A8 


2A2141 


LD 


HL, (4121H) 


0A8 3 


F8 


RET 


M 


0A84 


CAF6 0A 


JP 


Z,0AF6H 


0A8 7 


D4B90A 


CALL 


NC, 0AB9H 


0A8A 


21B207 


LD 


HL, 07B2H 


0A8D 


E5 


PUSH 


HL 


0A8E 


3A2441 


LD 


A, (4124H) 


0A91 


FE90 


CP 


90H 


0A93 


300E 


JR 


NC, 0AA3H 


0A95 


CDFBOA 


CALL 


OAFBH 


0A98 


EB 


EX 


DE,HL 


0A9 9 


Dl 


POP 


DE 


0A9A 


222141 


LD 


(4121H) ,HI 


0A9D 


3E02 


LD 


A, 02H 


0A9F 


32AF40 


LD 


(40AFH) ,A 


0AA2 


C9 


RET 




0AA3 


018090 


LD 


BC, 9080H 


0AA6 


110000 


LD 


DE,OOOOH 


0AA9 


CDOCOA 


CALL 


OAOCH 


OAAC 


CO 


RET 


NZ 


OAAD 


61 


LD 


H,C 


OAAE 


6A 


LD 


L,D 


OAAF 


18E8 


JR 


0A99H 


OABl 


E7 


RST 


20H 


0AB2 


EO 


RET 


PO 


0AB3 


FACCOA 


JP 


M,OACCH 


0AB6 


CAF6 0A 


JP 


Z, 0AF6H 


0AB9 


CDBF09 


CALL 


09BFH 


OABC 


CDEFOA 


CALL 


OAEFH 


OABF 


78 


LD 


A,B 


OACO 


B7 


OR 


A 


OACl 


C8 


RET 


Z 


0AC2 


CDDF0 9 


CALL 


9DFH 


0AC5 


212041 


LD 


HL,4120H 


0AC8 


46 


LD 


B, (HL) 


0AC9 


C39607 


JP 


0796H 


OACC 


2A2141 


LD 


HL, (4121H) 



COMPARE SIGNS 

RESTORE MSB OF ACCUM 2 

RETURN -1 IF SIGNS DIFFERENT 

POINT TO 

EXPONENTS 

COMPARE 8 BYTES 

COMPARE BYTES 

CONTINUE IF DIFFERENT 

POINT TO 

NEXT BYTES 

ONE LESS TO COMPARE 

LOOP UNTIL DONE 

EXIT DIRECTLY TO CALLER 

DONE 

COMPARE ACCUM & ACCUM2 

SET FLAGS IN NOT SAME 

DONE 

GET TYPE OF ACCUM 

HL = INTEGER VALUE 

RETURN IF INTEGER 

TM ERROR IF STRING 

CONVERT D.P. TO S.P. 

RETURN THROUGH 

OV ERROR ROUTINE 

GET EXPONENT 

SPECIAL CASE? 

HANDLE IT IF NECESSARY 

CONVERT S.P. TO INTEGER 

PUT INTEGER IN HL 

ELIMINATE OV ERROR EXIT 

SAVE INTEGER VALUE 

TYPE = INTEGER 

SAVE TYPE FLAG 

DONE 

IS ACCUM = -32768? 



OV ERROR IF NOT 
HL = -32768 

CONTINUE 

GET TYPE OF ACCUM 

RETURN IF ALREADY S.P. 

JUMP IF INTEGER 

TM ERROR IF STRING 

BCDE = ACCUM 

TYPE =SINGLE PRECISION 

ZERO? 

RETURN IF SO 
UNPACK BCDE 
GET 4TH MOST 
SIGNIFICANT BYTE 
NORMALIZE & RETURN 
GET INTEGER VALUE 
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OACF 


CDEFOA 


CALL 


OAEFH 


0AD2 


7C 


LD 


A,H 


0AD3 


55 


LD 


D,L 


0AD4 


lEOO 


LD 


E, OOH 


0AD6 


0690 


LD 


B,90H 


0AD8 


C36909 


JP 


0969H 


OADB 


E7 


RST 


20H 


OADC 


DO 


RET 


NC 


OADD 


CAF6 0A 


JP 


Z, 0AF6H 


OAEO 


FCCCOA 


CALL 


M,OACCH 


0AE3 


210000 


LD 


HL, OOOOH 


0AE6 


221D41 


LD 


(411DH) ,HL 


0AE9 


221F41 


LD 


(411FH) ,HL 


OAEC 


3E08 


LD 


A, 08H 


OAEE 


01 






OAEF 


3E04 


LD 


A, 04H 


OAFl 


C39F0A 


JP 


0A9FH 


0AF4 


E7 


RST 


20H 


OAFS 


C8 


RET 


Z 


0AF6 


1E18 


LD 


E,18H 


OAFS 


C3A219 


JP 


19A2H 


OAFB 


47 


LD 


B,A 


OAFC 


4F 


LD 


C,A 


OAFD 


57 


LD 


D,A 


OAFE 


5F 


LD 


E,A 


OAFF 


B7 


OR 


A 


OBOO 


C8 


RET 


Z 


OBOl 


E5 


PUSH 


HL 


0B02 


CDBF09 


CALL 


09BFH 


0B05 


CDDF09 


CALL 


9DFH 


0B08 


AE 


XOR 


(HL) 


0B09 


67 


LD 


H,A 


OBOA 


FCIFOB 


CALL 


M, OBIFH 


OBOD 


3E98 


LD 


A, 98H 


OBOF 


90 


SUB 


B 


OBIO 


CDD7 07 


CALL 


07D7H 


0B13 


7C 


LD 


A,H 


0B14 


17 


RLA 




0B15 


DCA8 07 


CALL 


C, 07A8H 


OBIS 


0600 


LD 


B,OOH 


OBIA 


DCC307 


CALL 


C, 07C3H 


OBID 


El 


POP 


HL 


OBIE 


C9 


RET 




OBIF 


IB 


DEC 


DE 


0B20 


7A 


LD 


A,D 


0B21 


A3 


AND 


E 


0B22 


3C 


INC 


A 


0B23 


CO 


RET 


NZ 


0B24 


OB 


DEC 


BC 


0B25 


C9 


RET 
FIX 




0B26 


E7 


RST 


20H 


0B27 


F8 


RET 


M 


0B28 


CD5509 


CALL 


0955H 


0B2B 


F2370B 


JP 


P, 0B37H 


0B2E 


CD8209 


CALL 


0982H 



SET TO SINGLE PRECISION 

SET UP 

FOR 

CONVERSION 

INITIAL EXPONENT 

FINISH CONVERSION & RETURN 

GET ACCUM TYPE 

RETURN IF ALREADY D.P. 

TM ERROR IF STRING 

CONVERT INTEGER 

ZERO THE FOUR 

LEAST SIGNIFICANT BYTE 

OF THE MANTISSA 

DOUBLE PRECISION 

MASK TO OAFIH 

SINGLE PRECISION 

SAVE TYPE 

GET TYPE OF ACCUM 

RETURN IF STRING 

TM ERROR 13 

GO TO ERROR ROUTINE 

CLEAR BCDE TO 

EXPONENT BYTES 



WAS EXPONENT ZERO? 

RETURN IF SO. 

SAVE HL 

BCDE = ACCUM 

UNPACK BCDE 

ADJUST SIGN 

SAVE SIGN 

HANDLE NEGATIVE SIGN 

MAXIMUM EXPONENT 

SUBTRACT REAL EXPONENT 

CONVERT CDE TO INTEGER 

RESTORE ORIGINAL SIGN 

PUT IT INTO CARRY 

CONVERT IF NEGATIVE 

SET B TO 

INVERT SIGN IF NECESSARY 

RESTORE HL 

DONE 

DE = DE -1 

DE = FFFF? 



RETURN IF NOT 
ROUND DOWN 
DONE 



CHECK TYPE OF ACCUM 
RETURN IF INTEGER 
CHECK SIGN 

SKIP IF POSITIVE TO INT 
MAKE POSITIVE 
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0B31 


CD370B 


CALL 


0B37H 


0B34 


C37B09 


JP 
INT 


097BH 


0B37 


E7 


RST 


20H 


0B38 


F8 


RET 


M 


0B39 


301E 


JR 


NC,0B59H 


0B3B 


28B9 


JR 


Z, 0AF6H 


0B3D 


CD8E0A 


CALL 


0A8EH 


0B40 


212441 


LD 


HL,4124H 


0B43 


7E 


LD 


A, (HL) 


0B44 


FE98 


CP 


98H 


0B46 


3A2141 


LD 


A, (4121H) 


0B49 


DO 


RET 


NC 


0B4A 


7E 


LD 


A, (HL) 


0B4B 


CDFBOA 


CALL 


OAFBH 


0B4E 


3698 


LD 


(HL) ,98H 


0B50 


7B 


LD 


A,E 


0B51 


F5 


PUSH 


AF 


0B52 


79 


LD 


A,C 


0B53 


17 


RLA 




0B54 


CD6207 


CALL 


0762H 


0B57 


Fl 


POP 


AF 


0B58 


C9 


RET 




0B59 


212441 


LD 


HL,4124H 


0B5C 


7E 


LD 


A, (HL) 


0B5D 


FE90 


CP 


90H 


0B5F 


DA7F0A 


JP 


C, 0A7FH 


0B62 


2014 


JR 


NZ,0B78H 


0B64 


4F 


LD 


C,A 


0B65 


2B 


DEC 


HL 


0B66 


7E 


LD 


A, (HL) 


0B67 


EE80 


XOR 


80H 


0B69 


0606 


LD 


B,06H 


0B6B 


2B 


DEC 


HL 


0B6C 


B6 


OR 


(HL) 


0B6D 


05 


DEC 


B 


0B6E 


20FB 


JR 


NZ, 0B6BH 


0B70 


B7 


OR 


A 


0B71 


210080 


LD 


HL, 8000H 


0B74 


CA9A0A 


JP 


Z , 0A9AH 


0B77 


79 


LD 


A,C 


0B78 


FEB8 


CP 


0B8H 


0B7A 


DO 


RET 


NC 


0B7B 


F5 


PUSH 


AF 


0B7C 


CDBF09 


CALL 


09BFH 


0B7F 


CDDF0 9 


CALL 


09DFH 


0B82 


AE 


XOR 


(HL) 


0B83 


2B 


DEC 


HL 


0B84 


36B8 


LD 


(HL) , 0B8H 


0B86 


F5 


PUSH 


AF 


0B87 


FCAOOB 


CALL 


M, OBAOH 


0B8A 


212341 


LD 


HL,4123H 


0B8D 


3EB8 


LD 


A,0B8H 


0B8F 


90 


SUB 


B 


0B90 


CD690D 


CALL 


0D69H 



ACCUM = INT (ACCUM) 
MAKE NEGATIVE & RETURN 



CHECK TYPE OF ACCUM 
RETURN IF INTEGER 
SKIP IF POSITIVE 
TM ERROR IF STRING 
ACCUM = CINT (ACCUM) 
RETURN NO OV ERROR 
GET EXPONENT OF ACCUM 

IS IT > 98H? 
GET LSB OF ACCUM 
RETURN IF > 98H 
GET EXPONENT OF ACCUM 
CONVERT TO INTEGER 
SAVE NEW EXPONENT 
GET INTEGER PART 
SAVE IT 
GET SIGN 

APPLY SIGN & NORMALIZE 

RESTORE INTEGER 

DONE 

GET EXPONENT OF 

ACCUM 

SMALL ENOUGH FOR INTEGER? 

INTEGER IF SO 

JUMP IF > 2 * * 16 

EXPONENT = +16 SAVE IT 

GET MSB 

INVERT SIGN BIT 

SCAN NEXT 6 BYTES 

NEXT BYTE 

COMBINE WITH MSB 

ONE LESS BYTE 

LOOP UNTIL DONE 

ZERO? 

HL = -32768 

INTEGER IF SO 

RESTORE EXPONENT 

TOO LARGE TO FIX? 

RETURN IF SO 

SAVE EXPONENT & STATUS 

BCDE = ACCUM 

UNPACK BCDE 

TEST SIGN 

POINT TO EXPONENT 

EXPONENT = + 56. (MAX) 

SAVE SIGN 

CONVERT TRAILING I'S IF - 

POINT TO MSB 

A = MAX EXPONENT 

SUBTRACT REAL EXPONENT 

RIGHT JUSTIFY MANTISSA 
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0B93 Fl POP 

0B94 FC200D CALL 

0B97 AF XOR 

0B98 321C41 LD 

0B9B Fl POP 

0B9C DO RET 

0B9D C3D80C JP 



AF RESTORE SIGN 

M,0D20H CONVERT TRAILING ' S IF 

A CLEAR A 

(411CH) ,A CLEAR MANTISSA SIGN 

AF RESTORE STATUS 

NC EXIT IF TOO LARGE 

0CD8H NORMALIZE & RETURN 



OBAO 211D41 

0BA3 7E 

0BA4 3 5 

0BA5 B7 

0BA6 2 3 

0BA7 2 8 FA 

0BA9 C9 



CONVERT TRAILING ONES TO ZEROES (P.P.) 

LD HL,411DH POINT TO LSB 

LD A, (HL) GET BYTE 

DEC (HL) ADJUST BYTE 

OR A TEST PREVIOUS BYTE 

INC HL POINT TO NEXT 

JR Z,0BA3H LOOP IF NOT DONE 

RET DONE 



DE = DE * BS ERROR IF OVERFLOW 



OBAA 
OBAB 
OBAE 
OBAF 
OBBO 
0BB2 
0BB4 
0BB5 
0BB8 
0BB9 
OBBA 
OBBB 
OBBD 
OBBE 
OBCl 
0BC2 
0BC4 
0BC5 
0BC6 



E5 

210000 

78 

Bl 

2812 

3E10 

29 

DA3D2 7 

EB 

29 

EB 

3004 

09 

DA3D2 7 

3D 

20F0 

EB 

El 

C9 



PUSH 

LD 

LD 

OR 

JR 

LD 

ADD 

JP 

EX 

ADD 

EX 

JR 

ADD 

JP 

DEC 

JR 

EX 

POP 

RET 



HL 

HL, OOOOH 

A,B 

C 

Z, 0BC4H 

A, lOH 

HL,HL 

C,273DH 

DE,HL 

HL,HL 

DE,HL 

NC, OBCIH 

HL,BC 

C,273DH 

A 

NZ, 0BB4H 

DE,HL 

HL 



SAVE HL 
RESULT = 
BC = 0? 

RESULT = IF SO, EXIT. 
SHIFT 16 TIMES 
SHIFT RESULT LEFT 
BS ERROR IF OVERFLOW 
SHIFT DE LEFT 



SKIP IF NO ADD 
RESULT = RESULT + BC 
BS ERROR IF OVERFLOW 
ONE LESS SHIFT TO DO 
LOOP UNTIL DONE 
RESULT IN DE 
RESTORE HL 
DONE 



DE = DE 



HL 



0BC7 


7C 


LD 


A,H 


0BC8 


17 


RLA 




0BC9 


9F 


SBC 


A, A 


OBCA 


47 


LD 


B,A 


OBCB 


CD510C 


CALL 


0C51H 


OBCE 


79 


LD 


A,C 


OBCF 


98 


SBC 


A,B 


OBDO 


1803 


JR 


0BD5H 






DE = 


DE + HL 



0BD2 7C 

0BD3 17 

0BD4 9F 

0BD5 47 

0BD6 E5 

0BD7 7A 

0BD8 17 

0BD9 9F 



LD 

RLA 

SBC 

LD 

PUSH 

LD 

RLA 

SBC 



A,H 

A, A 
B,A 
HL 
A,D 

A, A 



B = SIGN OF HL 



HL 
A = 



-HL 
-SIGN OF HL 



ADD & RETURN 



A 



SIGN OF HL 



B = SIGN OF HL 

SAVE HL 

A = SIGN OF DE 
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OBDA 


19 


ADD 


HL,DE 


OBDB 


88 


ADC 


A,B 


OBDC 


OF 


RRCA 




OBDD 


AC 


XOR 


H 


OBDE 


F2990A 


JP 


P,0A99H 


OBEl 


C5 


PUSH 


BC 


0BE2 


EB 


EX 


DE,HL 


0BE3 


CDCFOA 


CALL 


OACFH 


0BE6 


Fl 


POP 


AF 


0BE7 


El 


POP 


HL 


0BE8 


CDA4 9 


CALL 


9A4H 


OBEB 


EB 


EX 


DE,HL 


OBEC 


CD6B0C 


CALL 


0C6BH 


OBEF 


C38F0F 


JP 


0F8FH 






DE = 


DE*HL 


0BF2 


7C 


LD 


A,H 


0BF3 


B5 


OR 


L 


0BF4 


CA9A0A 


JP 


Z , 0A9AH 


0BF7 


E5 


PUSH 


HL 


0BF8 


D5 


PUSH 


DE 


0BF9 


CD450C 


CALL 


0C45H 


OBFC 


C5 


PUSH 


BC 


OBFD 


44 


LD 


B,H 


OBFE 


4D 


LD 


C,L 


OBFF 


210000 


LD 


HL, OOOOH 


0C02 


3E10 


LD 


A,10H 


0C04 


29 


ADD 


HL,HL 


0C05 


381F 


JR 


C, 0C26H 


0C07 


EB 


EX 


DE,HL 


0C08 


29 


ADD 


HL,HL 


0C09 


EB 


EX 


DE,HL 


OCOA 


3004 


JR 


NC, OCIOH 


OCOC 


09 


ADD 


HL,BC 


OCOD 


DA2 6 0C 


JP 


C,0C26H 


OCIO 


3D 


DEC 


A 


OCll 


20F1 


JR 


NZ,0C04H 


0C13 


CI 


POP 


BC 


0C14 


Dl 


POP 


DE 


0C15 


7C 


LD 


A,H 


0C16 


B7 


OR 


A 


0C17 


FAIFOC 


JP 


M,0C1FH 


OCIA 


Dl 


POP 


DE 


OCIB 


78 


LD 


A,B 


OCIC 


C34D0C 


JP 


0C4DH 


OCIF 


EE80 


XOR 


80H 


0C21 


B5 


OR 


L 


0C22 


2813 


JR 


Z, 0C37H 


0C24 


EB 


EX 


DE,HL 


0C25 


01 






0C26 


CI 


POP 


BC 


0C27 


El 


POP 


HL 


0C28 


CDCFOA 


CALL 


OACFH 


0C2B 


El 


POP 


HL 


0C2C 


CDA4 9 


CALL 


9A4H 


0C2F 


CDCFOA 


CALL 


OACFH 


0C32 


CI 


POP 


BC 



HL = HL + DE 
TEST FOR OVERFLOW 



EXIT IF NONE HL = RESULT 

SAVE SIGN OF HL 

SWAP DE & HL 

ACCUM = CSNG(HL) 

CLEAR STACK 

RESTORE HL 

PUT ACCUM ON STACK 

PUT OLD HL IN DE 

ACCUM = CSNG(DE) 

ADD & RETURN. 



HL = 

RESULT = IF SO 
SAVE ORIGINAL 
VALUES JUST IN CASE 
RESULT INTEGER B = SIGN 
SAVE SIGN OF RESULT 
BC = HL 

HL = RESULT = 
16 SHIFTS TO DO 
SHIFT RESULT LEFT 
JUMP OUT IF OVERFLOW 
SHIFT TO THE LEFT 



SKIP IF NO ADD 

RESULT = RESULT + BC 

JUMP OUT IF OVERFLOW 

ONE LESS SHIFT TO DO 

LOOP UNTIL DONE 

RESTORE SIGN OF RESULT 

RESTORE DE 

CHECK SIGN OF RESULT 

BEFORE ADJUSTING 

SKIP IF NEGATIVE 

CLEAR STACK 

GET SIGN OF RESULT 

SAVE RESULT & EXIT 

INVERT SIGN OF RESULT 

ZERO? 

SKIP IF SO 

SAVE RESULT IN DE 

RESTORE COMBINED SIGN 
RESTORE OLD DE TO HL 
ACCUM = CSNG(HL) 
RESTORE OLD HL 
PUT ACCUM ON STACK 
ACCUM = CSNG(HL) 
LOAD BCDE 
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0C33 
0C34 
0C37 
0C38 
0C39 
0C3A 
0C3D 
0C3E 
0C41 
0C42 
0C45 
0C46 
0C47 
0C48 
0C4B 
0C4C 
0C4D 
0C4E 
0C51 
0C52 
0C53 
0C54 
0C55 
0C56 
0C57 
0C58 
0C5B 
0C5E 
0C61 
0C62 
0C64 
0C65 
0C66 
0C67 
0C6A 
0C6B 
0C6D 



Dl 

C34708 

78 

B7 

CI 

FA9A0A 

D5 

CDCFOA 

Dl 

C38209 

7C 

AA 

47 

CD4C0C 

EB 

7C 

B7 

F2 9A0A 

AF 

4F 

95 

6F 

79 

9C 

67 

C3 9A0A 

2A2141 

CD510C 

7C 

EE80 

B5 

CO 

EB 

CDEFOA 

AF 

0698 

C36909 



POP 

JP 

LD 

OR 

POP 

JP 

PUSH 

CALL 

POP 

JP 

LD 

XOR 

LD 

CALL 

EX 

LD 

OR 

JP 

XOR 

LD 

SUB 

LD 

LD 

SBC 

LD 

JP 

LD 

CALL 

LD 

XOR 

OR 

RET 

EX 

CALL 

XOR 

LD 

JP 



DE 

0847H 

A,B 

A 

BC 

M, 0A9AH 

DE 

OACFH 

DE 

0982H 

A,H 

D 

B,A 

0C4CH 

DE,HL 

A,H 

A 

P , 0A9AH 

A 

C,A 

L 

L,A 

A,C 

A,H 

H,A 

0A9AH 

HL, (4121H) 

0C51H 

A,H 

80H 

L 

NZ 

DE,HL 

OAEFH 

A 

B,98H 

0969H 



FROM STACK 

MULTIPLY & RETURN 

GET SIGN OF RESULT 

TEST IT 

CLEAR STACK 

RETURN VALUE IF ALREADY NEGATIVE 

SAVE DE 

ACCUM = CSNG (RESULT) 

RESTORE DE 

MAKE IT NEGATIVE & RETURN 

COMPUTE COMBINED 

SIGN & SAVE IN B 

MAKE HL POSITIVE 
MAKE DE POSITIVE 
GET MSB OF HL 
TEST IT 

ACCUM = HL INTEGER 
A = 
C = 
HL = -HL 



ACCUM=HL INTEGER 
GET HL FROM ACCUM 
HL = -HL. C=0 
INVERT SIGN OF HL 

HL ZERO? 

RETURN IF NOT 

PUT IN DE 

SET TYPE S.P. 

CLEAR STATUS 

B = NEW EXPONENT 

NORMALIZE & RETURN 



DOUBLE PRECISION SUBTRACTION 



0C70 


212D41 


LD 


HL,412DH 


INVERT 


0C73 


7E 


LD 


A, (HL) 


SIGN 


0C74 


EE80 


XOR 


80H 


OF 


0C76 


77 


LD 


(HL) ,A 


ACCUM 2 






DOUBLE 


PRECISION 


ADDITION 



0C77 212E41 
0C7A 7E 
0C7B B7 
0C7C C8 
0C7D 47 
0C7E 2B 
0C7F 4E 
0C80 112441 
0C83 lA 
0C84 B7 
0C8 5 CAF4 9 
0C88 90 



LD 
LD 
OR 

RET 

LD 

DEC 

LD 

LD 

LD 

OR 

JP 

SUB 



HL,412EH 

A, (HL) 

A 

Z 

B,A 

HL 

C, (HL) 

DE,4124H 

A, (DE) 

A 

Z, 09F4H 

B 



ACCUM 2 



0? 



RETURN IF SO 

SAVE ACCUM 2 EXPONENT 

GET MSB OF 

ACCUM 2 

ACCUM = 



SWAP & EXIT IF SO 

GET DIFFERENCE OF EXPONENTS 
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0C89 


3016 


JR 


NC, OCAIH 


0C8B 


2F 


CPL 




0C8C 


3C 


INC 


A 


0C8D 


F5 


PUSH 


AF 


0C8E 


0E08 


LD 


C,08H 


0C90 


23 


INC 


HL 


0C91 


E5 


PUSH 


HL 


0C92 


lA 


LD 


A, (DE) 


0C93 


46 


LD 


B, (HL) 


0C94 


77 


LD 


(HL) ,A 


0C95 


78 


LD 


A,B 


0C96 


12 


LD 


(DE) ,A 


0C97 


IB 


DEC 


DE 


0C98 


2B 


DEC 


HL 


0C99 


OD 


DEC 


C 


0C9A 


20F6 


JR 


NZ, 0C92H 


0C9C 


El 


POP 


HL 


0C9D 


46 


LD 


B, (HL) 


0C9E 


2B 


DEC 


HL 


0C9F 


4E 


LD 


C, (HL) 


OCAO 


Fl 


POP 


AF 


OCAl 


FE39 


CP 


3 9H 


0CA3 


DO 


RET 


NC 


0CA4 


F5 


PUSH 


AF 


OCAS 


CDDF0 9 


CALL 


9DFH 


0CA8 


23 


INC 


HL 


0CA9 


3600 


LD 


(HL) ,00H 


OCAB 


47 


LD 


B,A 


OCAC 


Fl 


POP 


AF 


OCAD 


212D41 


LD 


HL,412DH 


OCBO 


CD690D 


CALL 


0D69H 


0CB3 


3A2641 


LD 


A, (4126H) 


0CB6 


321C41 


LD 


(411CH) ,A 


0CB9 


78 


LD 


A,B 


OCBA 


B7 


OR 


A 


OCBB 


F2CF0C 


JP 


P, OCCFH 


OCBE 


CD330D 


CALL 


0D33H 


OCCl 


D20E0D 


JP 


NC, ODOEH 


0CC4 


EB 


EX 


DE,HL 


0CC5 


34 


INC 


(HL) 


0CC6 


CAB2 07 


JP 


Z, 07B2H 


0CC9 


CD900D 


CALL 


0D90H 


OCCC 


C30E0D 


JP 


ODOEH 


OCCF 


CD4 5 0D 


CALL 


0D45H 


0CD2 


212541 


LD 


HL,4125H 


0CD5 


DC570D 


CALL 


C, 0D57H 


0CD8 


AF 


XOR 


A 


0CD9 


47 


LD 


B,A 


OCDA 


3A2341 


LD 


A, (4123H) 


OCDD 


B7 


OR 


A 


OCDE 


201E 


JR 


NZ, OCFEH 


OCEO 


211C41 


LD 


HL,411CH 


0CE3 


0E08 


LD 


C, 08H 


0CE5 


56 


LD 


D, (HL) 


0CE6 


77 


LD 


(HL) ,A 


0CE7 


7A 


LD 


A,D 


0CE8 


23 


INC 


HL 



SKIP IF POSITIVE 

DIFFERENCE = 

- DIFFERENCE 

SAVE DIFFERENCE 

SWAP 8 BYTES 

POINT TO ACCUM 2 EXPONENT 

SAVE POINTER 

GET BYTE FROM ACCUM 

GET BYTE FROM ACCUM 2 

SAVE BYTE FROM ACCUM 

SAVE BYTE FROM ACCUM 2 

BUMP POINTERS 

ONE LESS BYTE TOGO 
LOOP UNTIL DONE 
RESTORE POINTER 
GET POINTER OF ACCUM 2 

GET MSB OF ACCUM 2 

RESTORE EXPONENT DIFFERENCE 

TOO BIG A MAGNITUDE 

DIFFERENCE? RETURN IF SO 

SAVE DIFFERENCE 

UNPACK ACCUM 

ZERO WORKSPACE 

FOR NORMALIZATION 

B = COMBINED SIGN 

RESTORE DIFFERENCE 

POINT TO MSB OF ACCUM 2 

UNPACK ACCUM 2 JUSTIFY 

ZERO ACCUM 

WORKSPACE 

CHECK 

COMBINED SIGN 

SKIP IF POSITIVE 

ACCUM = ACCUM + ACCUM 2 

FINISH UP IF NO OVERFLOW 

OTHERWISE, INCREASE 

EXPONENT 

CV ERROR IF OVERFLOW 

SHIFT ACCUM RIGHT 1 BIT 

FINISH UP & RETURN 

ACCUM = ACCUM - ACCUM2 

POINT TO SIGN OF ACCUM 

INVERT ACCUM IF NECESSARY 

CLEAR FLAG 

SAVE FLAG 

CHECK MSB OF ACCUM 

ZERO? 

SKIP OUT IF NOT 

SHIFT ACCUM LEFT ONE BYTE 

8 BYTES TO SHIFT 

PUT (HL) IN D 

PUT A IN (HL) 

PUT D IN A 

MOVE TO NEXT BYTE 
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0CE9 


OD 


DEC 


C 


ONE LESS TO DO 


OCEA 


20F9 


JR 


NZ,0CE5H 


LOOP UNTIL DONE 


OCEC 


78 


LD 


A,B 


EXPONENT = 


OCED 


D608 


SUB 


08H 


EXPONENT - 8 


OCEF 


FECO 


CP 


OCOH 


ALL EIGHT BYTES CHECKED? 


OCFl 


20E6 


JR 


NZ, 0CD9H 


LOOP IF FOOT 


0CF3 


C37807 


JP 


0778H 


AC CUM = RETURN 


0CF6 


05 


DEC 


B 


EXPONENT = EXPONENT - 1 


0CF7 


211C41 


LD 


HL,411CH 


POINT TO ACCUM 


OCFA 


CD970D 


CALL 


0D97H 


SHIFT ACCUM LEFT 1 BIT 


OCFD 


B7 


OR 


A 


TEST MSB 


OCFE 


F2F60C 


JP 


P,0CF6H 


LOOP IF BIT 7<>0 


ODOl 


78 


LD 


A,B 


CHECK EXPONENT CHANGE 


0D02 


B7 


OR 


A 




0D03 


2809 


JR 


Z,ODOEH 


FINISH UP IF ZERO 


0D05 


212441 


LD 


HL,4124H 


ADD CHANGE TO 


0D08 


86 


ADD 


A, (HL) 


ORIGINAL EXPONENT 


0D09 


77 


LD 


(HL) ,A 


SAVE IT 


ODOA 


D27807 


JP 


NC, 0778H 


ZERO IF NO OVERFLOW 


ODOD 


C8 


RET 


Z 


DONE IF ZERO 


ODOE 


3A1C41 


LD 


A, (411CH) 


CHECK SIGN OF 


ODll 


B7 


OR 


A 


MANTISSA 


0D12 


FC200D 


CALL 


M, 0D20H 


CONVERT TRAILING ZEROES 


0D15 


212541 


LD 


HL,4125H 


GET SIGN OF ACCUM 


0D18 


7E 


LD 


A, (HL) 




0D19 


E680 


AND 


80H 




ODIB 


2B 


DEC 


HL 


PUT IT IN 


ODIC 


2B 


DEC 


HL 


THE 


ODID 


AE 


XOR 


(HL) 


MANTISSA 


ODIE 


77 


LD 


(HL) ,A 




ODIF 


C9 


RET 




DONE 


0D2 


211D41 


LD 


HL,411DH 


ACCUM = 


0D23 


0607 


LD 


B, 07H 


ACCUM + 1 


0D25 


34 


INC 


(HL) 


(CONVERT TRAILING 


0D26 


CO 


RET 


NZ 


ZEROES TO ONES) 


0D27 


23 


INC 


HL 




0D28 


05 


DEC 


B 




0D2 9 


2 0FA 


JR 


NZ, 0D25H 




0D2B 


34 


INC 


(HL) 




0D2C 


CAB2 07 


JP 


Z,07B2H 


OV ERROR IF OVERFLOW 


0D2F 


2B 


DEC 


HL 


FIX MSB OF ACCUM 


0D30 


3680 


LD 


(HL) ,80H 




0D32 


C9 


RET 




DONE 


0D33 


212741 


LD 


HL,4127H 


ACCUM 


0D36 


111D41 


LD 


DE,411DH 


ACCUM + ACCUM 2 


0D3 9 


0E07 


LD 


C, 07H 


SEVEN BYTES TO PROCESS 


0D3B 


AF 


XOR 


A 


CLEAR STATUS 


0D3C 


lA 


LD 


A, (DE) 


ADD BYTES 


0D3D 


8E 


ADC 


A, (HL) 


INCLUDING OVERFLOW 


0D3E 


12 


LD 


(DE) ,A 


AND SAVE 


0D3F 


13 


INC 


DE 


POINT TO 


0D4 


23 


INC 


HL 


NEXT BYTES 


0D41 


OD 


DEC 


C 


ONE LESS BYTE TO DO 


0D42 


20F8 


JR 


NZ, 0D3CH 


LOOP UNTIL DONE 


0D44 


C9 


RET 




DONE 


0D4 5 


212741 


LD 


HL,4127H 


ACCUM = 


0D48 


111D41 


LD 


DE,411DH 


ACCUM - ACCUM 2 
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0D4B 


0E07 


LD 


C,07H 


0D4D 


AF 


XOR 


A 


0D4E 


lA 


LD 


A, (DE) 


0D4F 


9E 


SBC 


A, (HL) 


0D50 


12 


LD 


(DE) ,A 


0D51 


13 


INC 


DE 


0D52 


23 


INC 


HL 


0D53 


OD 


DEC 


C 


0D54 


20F8 


JR 


NZ, 0D4EH 


0D56 


C9 


RET 




0D57 


7E 


LD 


A, (HL) 


0D58 


2F 


CPL 




0D59 


77 


LD 


(HL) ,A 


0D5A 


211C41 


LD 


HL,411CH 


0D5D 


0608 


LD 


B,08H 


0D5F 


AF 


XOR 


A 


0D60 


4F 


LD 


C,A 


0D61 


79 


LD 


A,C 


0D62 


9E 


SBC 


A, (HL) 


0D63 


77 


LD 


(HL) ,A 


0D64 


23 


INC 


HL 


0D65 


05 


DEC 


B 


0D66 


20F9 


JR 


NZ, 0D61H 


0D68 


C9 


RET 




0D69 


71 


LD 


(HL) ,C 


0D6A 


E5 


PUSH 


HL 


0D6B 


D608 


SUB 


08H 


0D6D 


380E 


JR 


C, 0D7DH 


0D6F 


El 


POP 


HL 


0D70 


E5 


PUSH 


HL 


0D71 


110008 


LD 


DE, 0800H 


0D74 


4E 


LD 


C, (HL) 


0D75 


73 


LD 


(HL) ,E 


0D76 


59 


LD 


E,C 


0D77 


2B 


DEC 


HL 


0D78 


15 


DEC 


D 


0D79 


20F9 


JR 


NZ,0D74H 


0D7B 


18EE 


JR 


0D6BH 


0D7D 


C609 


ADD 


A, 09H 


0D7F 


57 


LD 


D,A 


0D80 


AF 


XOR 


A 


0D81 


El 


POP 


HL 


0D82 


15 


DEC 


D 


0D83 


C8 


RET 


Z 


0D84 


E5 


PUSH 


HL 


0D85 


1E08 


LD 


E, 08H 


0D87 


7E 


LD 


A, (HL) 


0D88 


IF 


RRA 




0D89 


77 


LD 


(HL) ,A 


0D8A 


2B 


DEC 


HL 


0D8B 


ID 


DEC 


E 


0D8C 


20F9 


JR 


NZ,0D87H 


0D8E 


18F0 


JR 


0D80H 


0D90 


212341 


LD 


HL,4123H 


0D93 


1601 


LD 


D,01H 


0D95 


18ED 


JR 


0D84H 


0D97 


0E08 


LD 


C,08H 



SEVEN BYTES TO PROCESS 

CLEAR STATUS 

SUBTRACT BYTES 

INCLUDING OVERFLOW 

AND SAVE 

POINT TO 

NEXT BYTES 

ONE LESS BYTE TO GO 

LOOP UNTIL DONE 

DONE 

INVERT SIGN BYTE 



POINT TO ACCUM 
INVERT 8 BYTES 
CLEAR STATUS 
C = 
A = C = 
(HL) = - (HL) 

GO TO NEXT BYTE 

ONE LESS TO DO 

LOOP UNTIL DONE 

DONE 

SAVE MSB 

SAVE POINTER 

ONE LESS BYTE TO SHIFT RIGHT 

JUMP IF THERE WAS LESS LEFT 

RESTORE POINTER 

SAVE POINTER 

DE = 8 : E = 

MOVE (HL) TO C. 

MOTE E TO (HL) 

MOVE C TO E 

NEXT BYTES 

ONE LESS TO DO 

LOOP UNTIL DONE 

SHIFT MORE IF NECESSARY 

A = # BITS TO RIGHT SHIFT + 1 

SAVE BIT COUNT 

CLEAR STATUS 

RESTORE POINTER 

ONE LESS BIT TO SHIFT 

RETURN IF DONE 

SAVE POINTER 

SHIFT 8 BYTES 

GET BYTE 

SHIFT IT RIGHT 

SAVE IT 

NEXT BYTES 

ONE LESS TO DO 

LOOP UNTIL DONE 

LOOP UNTIL DONE 

SHIFT ACCUM 

RIGHT 1 BIT 

GO TO IT 

SHIFT 8 BYTES 
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0D99 7E 
0D9A 17 
0D9B 77 
0D9C 23 
0D9D OD 
0D9E 20F9 
ODAO C9 



LD 

RLA 

LD 

INC 

DEC 

JR 

RET 



A, (HL) 

(HL) ,A 
HL 
C 
NZ, 0D99H 



POINTED TO BY HL, 
LEFT ONE BIT 



ONE LESS TO DO 

ONE LOOP UNTIL DONE 

DONE 



DOUBLE PRECISION MULTIPLICATION 



ODAl 


CD5509 


CALL 


0955H 


ACCUM =0? 


0DA4 


C8 


RET 


Z 


RETURN IF SO 


0DA5 


CD0A09 


CALL 


90AH 


ADD EXPONENTS 


0DA8 


CD390E 


CALL 


0E39H 


SET UP WORKSPACE 


ODAB 


71 


LD 


(HL) ,C 


ZERO TAIL BYTE 


ODAC 


13 


INC 


DE 


POINT TO WORKSPACE LSB 


ODAD 


0607 


LD 


B, 07H 


MULTIPLY 7 BYTES 


ODAF 


lA 


LD 


A, (DE) 


GET BYTE 


ODBO 


13 


INC 


DE 


POINT TO NEXT BYTE 


ODBl 


B7 


OR 


A 


CHECK BYTE 


0DB2 


D5 


PUSH 


DE 


SAVE POINTER 


0DB3 


2817 


JR 


Z, ODCCH 


JUMP IF BYTE ZERO 


0DB5 


0E08 


LD 


COSH 


LOOP OVER ALL 8 BITS 


0DB7 


C5 


PUSH 


BC 


SAVE BC 


0DB8 


IF 


RRA 




ROTATE BYTE TO CARRY 


0DB9 


47 


LD 


B,A 


SAVE BYTE 


ODBA 


DC330D 


CALL 


C, 0D33H 


IF BIT SET, ACCUM = AC' 


ODBD 


CD900D 


CALL 


0D90H 


SHIFT ACCUM RIGHT 


ODCO 


78 


LD 


A,B 


RESTORE BYTE 


ODCl 


CI 


POP 


BC 


RESTORE BC 


0DC2 


OD 


DEC 


C 


ONE LESS BIT TO GO 


0DC3 


20F2 


JR 


NZ, 0DB7H 


LOOP UNTIL DONE 


0DC5 


Dl 


POP 


DE 


RESTORE POINTER 


0DC6 


05 


DEC 


B 


ONE LESS BYTE TO DO 


0DC7 


20E6 


JR 


NZ, ODAFH 


LOOP UNTIL DONE 


0DC9 


C3D80C 


JP 


0CD8H 


NORMALIZE & RETURN 


ODCC 


212341 


LD 


HL,4123H 


SHIFT ACCUM 


ODCF 


CD700D 


CALL 


0D70H 


RIGHT ONE BYTE 


0DD2 


18F1 


JR 


0DC5H 


DONE 


0DD4 


0000000000002084 




10. ODO 


ODDC 


11D40D 


LD 


DE,0DD4H 


DIVIDE D.P. ACCUM 


ODDF 


212741 


LD 


HL,4127H 


BY 10 


0DE2 


CDD3 9 


CALL 


09D3H 








DOUBLE 


PRECISION 


DIVISION 



+ ACCUM 2 



ODES 
0DE8 
0DE9 
ODEC 
ODEF 
ODFO 
ODFl 
0DF4 
0DF7 
0DF8 
0DF9 
ODFC 
ODFF 



3A2E41 

B7 

CA9A19 

CD0709 

34 

34 

CD390E 

215141 

71 

41 

114A41 

212741 

CD4B0D 



LD 

OR 

JP 

CALL 

INC 

INC 

CALL 

LD 

LD 

LD 

LD 

LD 

CALL 



A, (412EH) 

A 

Z, 199AH 

0907H 

(HL) 

(HL) 

0E39H 

HL,4151H 

(HL) ,C 
B,C 

DE,414AH 
HL,4127H 
0D4BH 



DOES ACCUM 2 

EQUAL ZERO? 

DIVISION BY ERROR IF SO 

SUBTRACT EXPONENTS 

INCREASE RESULTING 

EXPONENT BY TWO 

SET UP WORKSPACE 

ZERO EXPONENTS 



ACCUM 2 = 

ACCUM 2 

- WORKSPACE 
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0E02 


lA 


LD 


A, (DE) 


0E03 


99 


SBC 


A,C 


0E04 


3F 


CCF 




0E05 


380B 


JR 


C, 0E12H 


0E07 


114A41 


LD 


DE,414AH 


OEOA 


212741 


LD 


HL,4127H 


OEOD 


CD390D 


CALL 


0D39H 


OEIO 


AFDA 






0E12 


12 


LD 


(DE) ,A 


0E13 


04 


INC 


B 


0E14 


3A2341 


LD 


A, (4123H) 


0E17 


3C 


INC 


A 


0E18 


3D 


DEC 


A 


0E19 


IF 


RRA 




OEIA 


FAllOD 


JP 


M,0D11H 


OEID 


17 


RLA 




OEIE 


211D41 


LD 


HL,411DH 


0E21 


0E07 


LD 


C, 07H 


0E23 


CD990D 


CALL 


0D99H 


0E26 


214A41 


LD 


HL,414AH 


0E29 


CD970D 


CALL 


0D97H 


0E2C 


78 


LD 


A,B 


0E2D 


B7 


OR 


A 


0E2E 


20C9 


JR 


NZ, 0DF9H 


0E30 


212441 


LD 


HL,4124H 


0E33 


35 


DEC 


(HL) 


0E34 


20C3 


JR 


NZ,0DF9H 


0E36 


C3B207 


JP 


07B2H 


0E39 


79 


LD 


A,C 


0E3A 


322D41 


LD 


(412DH) ,A 


0E3D 


2B 


DEC 


HL 


0E3E 


115041 


LD 


DE,4150H 


0E41 


010007 


LD 


BC, 0700H 


0E44 


7E 


LD 


A, (HL) 


0E45 


12 


LD 


(DE) ,A 


0E46 


71 


LD 


(HL) ,C 


0E47 


IB 


DEC 


DE 


0E48 


2B 


DEC 


HL 


0E49 


05 


DEC 


B 


0E4A 


20F8 


JR 


NZ,0E44H 


0E4C 


C9 


RET 




0E4D 


CDFC09 


CALL 


9FCH 


0E50 


EB 


EX 


DE,HL 


0E51 


2B 


DEC 


HL 


0E52 


7E 


LD 


A, (HL) 


0E53 


B7 


OR 


A 


0E54 


C8 


RET 


Z 


0E55 


C602 


ADD 


A, 02H 


0E57 


DAB2 07 


JP 


C, 07B2H 


0E5A 


77 


LD 


(HL) ,A 


0E5B 


E5 


PUSH 


HL 


0E5C 


CD770C 


CALL 


0C77H 


0E5F 


El 


POP 


HL 


0E60 


34 


INC 


(HL) 


0E61 


CO 


RET 


NZ 


0E62 


C3B207 


JP 


07B2H 



WAS AC CUM 2 > 
WORKSPACE? 

SKIP IF IT WAS. 
WORKSPACE = 
WORKSPACE + ACCUM 2 

MASK TO 0E14H 

SAVE NEW EXPONENT 

ONE MORE SUBTRACTION 

GET MSB OF ACCUM 

IS 

CARRY 

SET? (DONE?) 

JUMP IF SO 

RESTORE CARRY 

HL => ACCUM LSB 

SHIFT 7 BYTES LEFT 

SHIFT THEM 

HL => WORKSPACE LSB 

SHIFT LEFT ONE 

GET # SUBTRACTIONS 

TEST 

JUMP IF SOME DONE 

DECREMENT EXPONENT 

OF ACCUM 

LOOP IF NON-ZERO 

OV ERROR IF OVERFLOW 

SAVE MSB 

OF ACCUM 2 

POINT TO MSB OF ACCUM 

MOVE ACCUM TO 

WORKSPACE, ZERO ACCUM 

GET BYTE 

SAVE BYTE TO NEW LOCATION 

ZERO OLD LOCATION 

POINT TO 

NEXT BYTES 

ONE LESS TO DO 

LOOP UNTIL DONE 

DONE 

ACCUM 2 = ACCUM 

HL => LSB OF ACCUM 

BACK UP TO EXPONENT 

EXPONENT ZERO? 

RETURN IF SO 

ACCUM = ACCUM* 4 

OV ERROR IF OVERFLOW 

SAVE EXPONENT 

SAVE HL 

ACCUM = ACCUM*4 + ACCUM 2 

ACCUM = ACCUM* 10 
RETURN IF NO OVERFLOW 
OV ERROR IF OVERFLOW 
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DECODE 


AN ASCII 


NUMBER 


0E65 


CD7807 


CALL 


0778H 


ZERO EXPONENT 


0E68 


CDECOA 


CALL 


OAECH 


DOUBLE PRECISION 


0E6B 


F6 






MASK TO 0E6DH 


0E6C 


AF 


XOR 


A 


CLEAR STATUS 


0E6D 


EB 


EX 


DE,HL 


SAVE HL 


0E6E 


OlFFOO 


LD 


BCOOFFH 




0E71 


60 


LD 


H,B 


HL = 


0E72 


68 


LD 


L,B 




0E73 


CC9A0A 


CALL 


Z , 0A9AH 


FLAG AS INTEGER + 


0E76 


EB 


EX 


DE,HL 


RESTORE HL DE=0 


0E77 


7E 


LD 


A, (HL) 


GET CHARACTER. 


0E78 


FE2D 


CP 


2DH 


II _ II -^ 


0E7A 


F5 


PUSH 


AF 


SAVE RESULT (SIGN) 


0E7B 


CA8 3 0E 


JP 


Z,0E83H 


SKIP IF SO 


0E7E 


FE2B 


CP 


2BH 


" + " ? 


0E80 


2801 


JR 


Z,0E83H 


SKIP IF SO 


0E82 


2B 


DEC 


HL 


BACK UP ONE CHARACTER. 


0E83 


D7 


RST 


lOH 


GET NEXT CHARACTER 


0E84 


DA290F 


JP 


C,0F29H 


JUMP IF NUMBER 


0E87 


FE2E 


CP 


2 EH 


II II 9 


0E89 


CAE4 0E 


JP 


Z,0EE4H 


JUMP IF SO 


0E8C 


FE45 


CP 


45H 


11 E 11 p 


0E8E 


2814 


JR 


Z, 0EA4H 


JUMP IF SO 


0E90 


FE25 


CP 


25H 


" % " ? 


0E92 


CAEEOE 


JP 


Z, OEEEH 


JUMP IF SO. 


0E95 


FE23 


CP 


23H 


" # " ? 


0E97 


CAF5 0E 


JP 


Z, 0EF5H 


JUMP IF SO. 


0E9A 


FE21 


CP 


21H 


11 1 11 p 


0E9C 


CAF6 0E 


JP 


Z,0EF6H 


JUMP IF SO 


0E9F 


FE44 


CP 


44H 


"D"? 


OEAl 


2024 


JR 


NZ,0EC7H 


JUMP IF NOT 


0EA3 


B7 


OR 


A 


NZ = DOUBLE PRECISION 


0EA4 


CDFBOE 


CALL 


OEFBH 


MAKE FLOATING POINT 


0EA7 


E5 


PUSH 


HL 


SAVE HL 


0EA8 


21BD0E 


LD 


HL, OEBDH 


SET RETURN ADDRESS 


OEAB 


E3 


EX 


(SP) ,HL 


SAVE RETURN & RESTORE HL 


OEAC 


D7 


RST 


lOH 


GET NEXT CHARACTER 


DEAD 


15 


DEC 


D 


D = -1 (NEGATIVE) 


OEAE 


FECE 


CP 


OCEH 


11 _ 11 9 


OEBO 


C8 


RET 


Z 


RETURN IF SO 


OEBl 


FE2D 


CP 


2DH 


11 _ 11 9 


0EB3 


C8 


RET 


Z 


RETURN IF SO 


0EB4 


14 


INC 


D 


D = = POSITIVE 


0EB5 


FECD 


CP 


OCDH 


" + " ? 


0EB7 


C8 


RET 


Z 


RETURN IF SO 


0EB8 


FE2B 


CP 


2BH 


" + " ? 


OEBA 


C8 


RET 


Z 


RETURN IF SO 


OEBB 


2B 


DEC 


HL 


BACK UP ONE CHARACTER 


OEBC 


Fl 


POP 


AF 


CLEAR RETURN FROM STACK 


OEBD 


D7 


RST 


lOH 


GET NEXT CHARACTER 


OEBE 


DA940F 


JP 


C,0F94H 


JUMP IF NUMERIC 


OECl 


14 


INC 


D 


= NEGATIVE 1 = POSITIVE 


0EC2 


2003 


JR 


NZ, 0EC7H 


SKIP IF POSITIVE 


0EC4 


AF 


XOR 


A 


MAKE EXPONENT 


0EC5 


93 


SUB 


E 


NEGATIVE (E = -E) 


0EC6 


5F 


LD 


E,A 


SAVE EXPONENT 
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0EC7 


E5 


PUSH 


HL 


0EC8 


7B 


LD 


A,E 


0EC9 


90 


SUB 


B 


OECA 


F40A0F 


CALL 


P, OFOAH 


OECD 


FC180F 


CALL 


M,0F18H 


OEDO 


20F8 


JR 


NZ, OECAH 


0ED2 


El 


POP 


HL 


0ED3 


Fl 


POP 


AF 


0ED4 


E5 


PUSH 


HL 


0ED5 


CC7B09 


CALL 


Z,097BH 


0ED8 


El 


POP 


HL 


0ED9 


E7 


RST 


20H 


OEDA 


E8 


RET 


PE 


OEDB 


E5 


PUSH 


HL 


OEDC 


219008 


LD 


HL,0890H 


OEDF 


E5 


PUSH 


HL 


OEEO 


CDA3 OA 


CALL 


0AA3H 


0EE3 


C9 


RET 




0EE4 


E7 


RST 


20H 


0EE5 


OC 


INC 


C 


0EE6 


2 0DF 


JR 


NZ, 0EC7H 


0EE8 


DCFBOE 


CALL 


COEFBH 


OEEB 


C3830E 


JP 


0E83H 


OEEE 


E7 


RST 


20H 


OEEF 


F29719 


JP 


P,1997H 


0EF2 


23 


INC 


HL 


0EF3 


18D2 


JR 


0EC7H 


0EF5 


B7 


OR 


A 


0EF6 


CDFBOE 


CALL 


OEFBH 


0EF9 


18F7 


JR 


0EF2H 


OEFB 


E5 


PUSH 


HL 


OEFC 


D5 


PUSH 


DE 


OEFD 


C5 


PUSH 


BC 


OEFE 


F5 


PUSH 


AF 


OEFF 


CCBIOA 


CALL 


Z,0AB1H 


0F02 


Fl 


POP 


AF 


0F03 


C4DB0A 


CALL 


NZ , OADBH 


0F06 


CI 


POP 


BC 


0F07 


Dl 


POP 


DE 


0F08 


El 


POP 


HL 


0F09 


C9 


RET 




OFOA 


C8 


RET 


Z 


OFOB 


F5 


PUSH 


AF 


OFOC 


E7 


RST 


20H 


OFOD 


F5 


PUSH 


AF 


OFOE 


E43E09 


CALL 


PO, 093EH 


OFll 


Fl 


POP 


AF 


0F12 


EC4D0E 


CALL 


PE, 0E4DH 


0F15 


Fl 


POP 


AF 


0F16 


3D 


DEC 


A 


0F17 


C9 


RET 




0F18 


D5 


PUSH 


DE 


0F19 


E5 


PUSH 


HL 


OFIA 


F5 


PUSH 


AF 


OFIB 


E7 


RST 


20H 


OFIC 


F5 


PUSH 


AF 


OFID 


E49708 


CALL 


PO,0897H 



SAVE HL 

GET EXPONENT IN A 

LESS # DIGITS RIGHT OF DECIMAL 

ACCUM = ACCUM * 10 

ACCUM = ACCUM / 10 

CONTINUE UNTIL A = 

RESTORE HL 

GET SIGN OF COEFFICIENT 

SAVE HL ONCE MORE 

INVERT ACCUM IF NECESSARY 

RESTORE HL AGAIN 

CHECK TYPE OF ACCUM 

RETURN IF S.P. 

SAVE HL (AGAIN! ! ) 

RETURN THROUGH 

ROUTINE 08 9 OH 

HANDLE SPECIAL CASE 

DONE 

GET TYPE OF ACCUM 

INCREMENT # DECIMALS 

FINISH UP IF TWO OR MORE 

MAKE S.P. IF NOT D.P. 

CONTINUE SCAN 

GET TYPE OF ACCUM 

SYNTAX ERROR IF NOT INTEGER 

GO TO NEXT CHARACTER 

FINISH UP 

NZ = DOUBLE PRECISION 

MAKE ACCUM FLOATING POINT 

CONTINUE 

SAVE REGISTERS 



SAVE STATUS 

MAKE S.P. IF ZERO 

RESTORE STATUS 

MAKE D.P. IF NON-ZERO 

RESTORE REGISTER 



DONE. CONTINUE SCAN 

RETURN IF ZERO 

SAVE STATUS 

CHECK TYPE OF ACCUM 

SAVE STATUS 

ACCUM = ACCUM* 10 

RESTORE STATUS 

ACCUM = ACCUM* 10 

RESTORE STATUS 

DECREMENT A 

CONTINUE 

SAVE REGISTERS 



(SP) 
(DP) 



GET TYPE OF ACCUM 

SAVE STATUS 

ACCUM = ACCUM/ 10 (S.P. 
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0F20 


Fl 


POP 


AF 


RESTORE STATUS 


0F21 


ECDCOD 


CALL 


PE,ODDCH 


ACCUM = ACCUM/10 (D.P.) 


0F24 


Fl 


POP 


AF 


RESTORE REGISTERS 


0F25 


El 


POP 


HL 




0F26 


Dl 


POP 


DE 




0F27 


3C 


INC 


A 


INCREMENT A 


0F28 


C9 


RET 




CONTINUE 


0F29 


D5 


PUSH 


DE 


SAVE DE 


0F2A 


78 


LD 


A,B 


B = B + 1 IF 


0F2B 


89 


ADC 


A,C 


TO RIGHT OF 


0F2C 


47 


LD 


B,A 


DECIMAL POINT 


0F2D 


C5 


PUSH 


BC 


SAVE BC 


0F2E 


E5 


PUSH 


HL 


SAVE HL 


0F2F 


7E 


LD 


A, (HL) 


GET CHARACTER. 


0F30 


D630 


SUB 


30H 


GET VALUE OF CHARACTER 


0F32 


F5 


PUSH 


AF 


SAVE IT 


0F33 


E7 


RST 


20H 


CHECK TYPE OF ACCUM 


0F34 


F25D0F 


JP 


P, 0F5DH 


JUMP IF NOT INTEGER 


0F37 


2A2141 


LD 


HL, (4121H) 


GET VALUE 


0F3A 


IICDOC 


LD 


DE,OCCDH 


IS IT 


0F3D 


DF 


RST 


18H 


> 3277? 


0F3E 


3019 


JR 


NC,0F59H 


MAKE S.P. IF SO 


0F40 


54 


LD 


D,H 


DE = HL 


0F41 


5D 


LD 


E,L 




0F42 


29 


ADD 


HL,HL 


HL = HL*2 


0F43 


29 


ADD 


HL,HL 


HL = HL*4 


0F44 


19 


ADD 


HL,DE 


HL = HL*5 


0F45 


29 


ADD 


HL,HL 


HL = HL*10 


0F46 


Fl 


POP 


AF 


RESTORE CHARACTER VALUE 


0F47 


4F 


LD 


C,A 


SAVE VALUE IN BC 


0F48 


09 


ADD 


HL,BC 


HL = OLD* 10 + NEW 


0F49 


7C 


LD 


A,H 


IS HL OVERFLOWED? 


0F4A 


B7 


OR 


A 




0F4B 


FA570F 


JP 


M, 0F57H 


MAKE S.P. IF SO 


0F4E 


222141 


LD 


(4121H) ,HL 


SAVE NEW VALUE 


0F51 


El 


POP 


HL 


RESTORE REGISTERS 


0F52 


CI 


POP 


BC 




0F53 


Dl 


POP 


DE 




0F54 


C3830E 


JP 


0E83H 


CONTINUE SCAN 


0F57 


79 


LD 


A,C 


GET VALUE OF CHARACTER 


0F58 


F5 


PUSH 


AF 


SAVE IT 


0F59 


CDCCOA 


CALL 


OACCH 


MAKE ACCUM SINGLE PRECISION 


0F5C 


37 


SCF 




NO JUMP 


0F5D 


3018 


JR 


NC, 0F77H 


JUMP IF DOUBLE PRECISION 


0F5F 


017494 


LD 


BC,9474H 


IS ACCUM 


0F62 


110024 


LD 


DE,2400H 


> 1,000,000? 


0F65 


CDOCOA 


CALL 


OAOCH 




0F68 


F2740F 


JP 


P, 0F74H 


MAKE D.P. IF SO 


0F6B 


CD3E09 


CALL 


093EH 


ACCUM = ACCUM* 10 


0F6E 


Fl 


POP 


AF 


RESTORE VALUE OF CHARACTER 


0F6F 


CD890F 


CALL 


0F89H 




0F72 


18DD 


JR 


0F51H 




0F74 


CDE3 0A 


CALL 


0AE3H 


SET UP D.P. 


0F77 


CD4D0E 


CALL 


0E4DH 


ACCUM = ACCUM* 10 


0F7A 


CDFC09 


CALL 


9FCH 


ACCUM 2 = ACCUM 


0F7D 


Fl 


POP 


AF 


RESTORE VALUE OF CHARACTER 


0F7E 


CD6409 


CALL 


0964H 


ACCUM = VALUE OF CHARACTER 
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0F81 


CDE3 0A 


CALL 


0AE3H 


0F84 


CD770C 


CALL 


0C77H 


0F87 


18C8 


JR 


0F51H 


0F89 


CDA4 9 


CALL 


9A4H 


0F8C 


CD6409 


CALL 


0964H 


0F8F 


CI 


POP 


EC 


0F90 


Dl 


POP 


DE 


0F91 


C31607 


JP 


0716H 


0F94 


7B 


LD 


A,E 


0F95 


FEOA 


CP 


OAH 


0F97 


3009 


JR 


NC, 0FA2H 


0F99 


07 


RLCA 




0F9A 


07 


RLCA 




0F9B 


83 


ADD 


A,E 


0F9C 


07 


RLCA 




0F9D 


86 


ADD 


A, (HL) 


0F9E 


D630 


SUB 


30H 


OFAO 


5F 


LD 


E,A 


OFAl 


FA 






0FA2 


1E32 


LD 


E,32H 


0FA4 


C3BD0E 


JP 


OEBDH 


0FA7 


E5 


PUSH 


HL 


0FA8 


212419 


LD 


HL, 1924H 


OFAB 


CDA72 8 


CALL 


2 8A7H 


OFAE 


El 


POP 


HL 


OFAF 


CD9A0A 


CALL 


0A9AH 


0FB2 


AF 


XOR 


A 


0FB3 


CD3410 


CALL 


1034H 


0FB6 


B6 


OR 


(HL) 


0FB7 


CDD90F 


CALL 


0FD9H 


OFBA 


C3A628 


JP 


2 8A6H 


OFBD 


AF 


XOR 


A 


OFBE 


CD3410 


CALL 


1034H 


OFCl 


E608 


AND 


08H 


0FC3 


2802 


JR 


Z,0FC7H 


0FC5 


362B 


LD 


(HL) ,2BH 


0FC7 


EB 


EX 


DE,HL 


0FC8 


CD9409 


CALL 


0994H 


OFCB 


EB 


EX 


DE,HL 


OFCC 


F2D90F 


JP 


P,0FD9H 


OFCF 


362D 


LD 


(HL) ,2DH 


OFDl 


C5 


PUSH 


BC 


0FD2 


E5 


PUSH 


HL 


0FD3 


CD7B09 


CALL 


097BH 


0FD6 


El 


POP 


HL 


0FD7 


CI 


POP 


BC 


0FD8 


B4 


OR 


H 


0FD9 


23 


INC 


HL 


OFDA 


3630 


LD 


(HL) ,30H 


OFDC 


3AD84 


LD 


A, (40D8H) 


OFDF 


57 


LD 


D,A 


OFEO 


17 


RLA 




OFEl 


3AAF4 


LD 


A, (40AFH) 


0FE4 


DA9A10 


JP 


C, 109AH 


0FE7 


CA9210 


JP 


Z,1092H 


OFEA 


FE04 


CP 


04H 


OFEC 


D23D10 


JP 


NC,103DH 



SET UP AS D.P. 

AC CUM = AC CUM + AC CUM 2 

CONTINUE SCAN 

PUT ACCUM ON STACK 

BC ACCUM = VALUE OF CHARACTER 

PUT OLD ACCUM 

IN BCDE 

ACCUM = ACCUM + VALUE 

GET EXPONENT 

IS IT 10 OR MORE? 

FORCE TO 50 IF SO 

E = E*10 + VALUE 



MASK TO 0FA4H 

FORCE EXPONENT TO 5 

CONTINUE EXPONENT SCAN 

SAVE HL 

HL => "IN " * 

PRINT "IN " ; : 

RESTORE HL 

SAVE HL IN ACCUM 

SET TO NO-EDIT 

SET UP TO PRINT 

SET NZ 

FORMAT FOR PRINTOUT 

OUTPUT & RETURN 

CLEAR TO NO-EDIT 

SAVE EDIT FLAGS 

INCLUDE THE SIGN? 

SKIP IF NOT 

DISPLAY A "+" . 

SAVE HL 

GET SIGN OF ACCUM 

RESTORE HL 

SKIP IF POSITIVE 

DISPLAY A "-" . 

SAVE BC 

SAVE HL 

MAKE ACCUM POSITIVE 

RESTORE HL 

RESTORE BC 

SET NZ 

NEXT POSITION 

SAVE "0" IN IT 

GET EDIT FLAGS 

PUT THEM IN D 

EDIT? 

GET TYPE FLAG 

JUMP IF EDIT 

JUMP IF EDIT FLAG ZERO 

SINGLE PRECISION? 

JUMP IF FLOATING POINT 
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OFEF 


010000 


LD 


BC, OOOOH 


NO COMMAS OR DECIMALS 


0FF2 


CD2F13 


CALL 


132FH 


CONVERT INTEGER TO ASCII 


0FF5 


213041 


LD 


HL,4130H 


POINT TO BUFFER 


0FF8 


46 


LD 


B, (HL) 


GET SIGN, IF ANY 


0FF9 


0E20 


LD 


C,20H 


C = SPACE 


OFFB 


3AD84 


LD 


A, (40D8H) 


GET EDIT FLAGS 


OFFE 


5F 


LD 


E,A 


AND PUT IN E 


OFFF 


E620 


AND 


20H 


LEADING ASTERISKS? 


1001 


2807 


JR 


Z, lOOAH 


SKIP IF NOT 


1003 


78 


LD 


A,B 


GET SIGN 


1004 


B9 


CP 


C 


IS IT A SPACE? 


1005 


0E2A 


LD 


C,2AH 


GET ASTERISK 


1007 


2001 


JR 


NZ, lOOAH 


SKIP IF NO SPACE 


1009 


41 


LD 


B,C 


SIGN = ASTERISK 


lOOA 


71 


LD 


(HL) ,C 


DISPLAY SIGN 


lOOB 


D7 


RST 


lOH 


GET NEXT CHARACTER. 


lOOC 


2814 


JR 


Z,1022H 


JUMP IF END OF LINE. 


lOOE 


FE45 


CP 


45H 


" E " ? 


1010 


2810 


JR 


Z, 1022H 


SKIP IF SO. 


1012 


FE44 


CP 


44H 


"D" ? 


1014 


280C 


JR 


Z, 1022H 


SKIP IF SO 


1016 


FE30 


CP 


30H 


" " ? 


1018 


28F0 


JR 


Z, lOOAH 


NEXT CHARACTER IF SO. 


lOlA 


FE2C 


CP 


2CH 


II II 9 


lOlC 


28EC 


JR 


Z,100AH 


NEXT CHARACTER IF SO. 


lOlE 


FE2E 


CP 


2 EH 


II II 9 


1020 


2003 


JR 


NZ,1025H 


NEXT CHARACTER. IF SO. 


1022 


2B 


DEC 


HL 


BACK UP ONE CHARACTER. 


1023 


3630 


LD 


(HL) ,30H 


CHARACTER = " " . 


1025 


7B 


LD 


A,E 


PRINT 


1026 


E610 


AND 


lOH 


LEADING "$"? 


1028 


2803 


JR 


Z,102DH 


SKIP IF NOT 


102A 


2B 


DEC 


HL 


BACK UP ONE CHARACTER 


102B 


3624 


LD 


(HL) ,24H 


CHARACTER . 


102D 


7B 


LD 


A,E 


PRINT LEADING 


102E 


E604 


AND 


04H 


SIGN? 


1030 


CO 


RET 


NZ 


RETURN IF NOT 


1031 


2B 


DEC 


HL 


BACK UP ONE CHARACTER 


1032 


70 


LD 


(HL) ,B 


CHARACTER = SIGN. 


1033 


C9 


RET 




DONE. 


1034 


32D840 


LD 


(40D8H) ,A 


SAVE EDIT FLAGS. 


1037 


213041 


LD 


HL,4130H 


HL => FORMATTING BUFFER 


103A 


3620 


LD 


(HL) ,20H 


PUT A SPACE IN IT. 


103C 


C9 


RET 




DONE 


103D 


FE05 


CP 


05H 


SET CARRY IF S.P. 


103F 


E5 


PUSH 


HL 


SAVE HL 


1040 


DEOO 


SBC 


A,OOH 


D = FIELD WIDTH 


1042 


17 


RLA 




= 7 FOR S.P. 


1043 


57 


LD 


D,A 


= 17 FOR D.P. 


1044 


14 


INC 


D 




1045 


CD0112 


CALL 


1201H 


SCALE ACCUM 


1048 


010003 


LD 


BC,0300H 


NO COMMAS. DECIMAL IN CO 


104B 


82 


ADD 


A,D 


SCALED DOWN MORE THAN 


104C 


FA5710 


JP 


M, 1057H 


D PLACES? JUMP IF SO 


104F 


14 


INC 


D 


D = 8 (SP) OR 18 (DP) 


1050 


BA 


CP 


D 


SCALED AT ALL? 


1051 


3004 


JR 


NC,1057H 


JUMP IF SCALED UP 
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053 


3C 


INC 


A 


054 


47 


LD 


B,A 


055 


3E02 


LD 


A, 02H 


057 


D602 


SUB 


02H 


059 


El 


POP 


HL 


05A 


F5 


PUSH 


AF 


05B 


CD9112 


CALL 


1291H 


05E 


3630 


LD 


(HL) ,30H 


060 


CCC909 


CALL 


Z,09C9H 


063 


CDA412 


CALL 


12A4H 


066 


2B 


DEC 


HL 


067 


7E 


LD 


A, (HL) 


068 


FE30 


CP 


30H 


06A 


28FA 


JR 


Z, 1066H 


06C 


FE2E 


CP 


2 EH 


06E 


C4C909 


CALL 


NZ, 09C9H 


071 


Fl 


POP 


AF 


072 


281F 


JR 


Z, 1093H 


074 


F5 


PUSH 


AF 


075 


E7 


RST 


20H 


076 


3E22 


LD 


A,22H 


078 


8F 


ADC 


A, A 


079 


77 


LD 


(HL) ,A 


07A 


23 


INC 


HL 


07B 


Fl 


POP 


AF 


07C 


362B 


LD 


(HL) ,2BH 


07E 


F28510 


JP 


P,1085H 


081 


362D 


LD 


(HL) ,2DH 


083 


2F 


CPL 




084 


3C 


INC 


A 


085 


062F 


LD 


B,2FH 


087 


04 


INC 


B 


088 


D6 0A 


SUB 


OAH 


08A 


30FB 


JR 


NC, 1087H 


08C 


C63A 


ADD 


A,3AH 


08E 


23 


INC 


HL 


08F 


70 


LD 


(HL) ,B 


090 


23 


INC 


HL 


091 


77 


LD 


(HL) ,A 


092 


23 


INC 


HL 


093 


3600 


LD 


(HL) , OOH 


095 


EB 


EX 


DE,HL 


096 


213041 


LD 


HL,4130H 


099 


C9 


RET 




9A 


23 


INC 


HL 


09B 


C5 


PUSH 


BC 


09C 


FE04 


CP 


04H 


09E 


7A 


LD 


A,D 


09F 


D20911 


JP 


NC, 1109H 


0A2 


IF 


RRA 




0A3 


DAA311 


JP 


C, 11A3H 


0A6 


010306 


LD 


BC,0603H 


0A9 


CD8912 


CALL 


1289H 


OAC 


Dl 


POP 


DE 


OAD 


7A 


LD 


A,D 


OAE 


D605 


SUB 


05H 


OBO 


F46912 


CALL 


P,1269H 



B 



# DIGITS IN VALUE 



FORCE EXPONENT TO ZERO 

COMPUTE EXPONENT 

RESTORE POSITION IN BUFFER 

SAVE EXPONENT 

APPLY DECIMAL 

STORE " " . 

MOVE TO NEXT CHARACTER IF NO SCALING 

CONVERT ACCUM TO ASCII. 

BACK UP ONE CHARACTER. 

IS IT A "0"? 

LOOP BACK IF SO. 
DECIMAL POINT? 
GO FORWARD IF NOT 
GET EXPONENT 
JUMP IF NO SCALING 
SAVE EXPONENT 
CHECK TYPE OF ACCUM 
A ="D" FOR D.P. 
="E" FOR S.P. 
SAVE EXPONENT CHARACTER. 
NEXT CHARACTER. 
RESTORE EXPONENT 
STORE "+" 
SKIP IF POSITIVE 
STORE " - " . 
INVERT EXPONENT 



"0" - 1 
B + 1 



B 

B 

A = A - 10 

LOOP UNTIL A<0 

A = A + "0" + 10 

GO TO NEXT CHARACTER. 

STORE FIRST DIGIT OF EXPONENT 

GO TO NEXT CHARACTER. 

STORE SECOND DIGIT 

GO TO NEXT CHARACTER. 

MARK END OF STRING. 

DE => END OF BUFFER 

HL => START OF BUFFER 

RETURN TO CALLER 

NEXT POSITION 

SAVE BC 

CHECK ACCUM TYPE 

GET EDIT FLAGS. 

JUMP IF FLOATING POINT. 

EXPONENTIAL NOTATION? 

JUMP IF SO 

SET COMMAS . DECIMAL IN COL 6 . 

CHECK IF COMMAS SELECTED. 

GET OLD BC 

GET # DIGITS LEFT OF DECIMAL 

LESS 5. 

ZERO LEADING ZEROES 



MOD III ROM COMMENTED (C) 1981 SOFT SECTOR MARKETING INC. 

PAGE 45 



0B3 


CD2F13 


CALL 


132FH 


0B6 


7B 


LD 


A,E 


0B7 


B7 


OR 


A 


0B8 


CC2F09 


CALL 


Z, 092FH 


OBB 


3D 


DEC 


A 


OBC 


F46912 


CALL 


P,1269H 


OBF 


E5 


PUSH 


HL 


OCO 


CDF50F 


CALL 


0FF5H 


0C3 


El 


POP 


HL 


0C4 


2802 


JR 


Z,10C8H 


0C6 


70 


LD 


(HL) ,B 


0C7 


23 


INC 


HL 


oca 


3600 


LD 


(HL) , OOH 


OCA 


212F41 


LD 


HL,412FH 


OCD 


23 


INC 


HL 


OCE 


3AF34 


LD 


A, (40F3H) 


ODl 


95 


SUB 


L 


0D2 


92 


SUB 


D 


0D3 


C8 


RET 


Z 


0D4 


7E 


LD 


A, (HL) 


0D5 


FE2 


CP 


20H 


0D7 


28F4 


JR 


Z,10CDH 


0D9 


FE2A 


CP 


2AH 


ODB 


28F0 


JR 


Z, lOCDH 


ODD 


2B 


DEC 


HL 


ODE 


E5 


PUSH 


HL 


ODF 


F5 


PUSH 


AF 


OEO 


OIDFIO 


LD 


BC, lODFH 


0E3 


C5 


PUSH 


BC 


0E4 


D7 


RST 


lOH 


0E5 


FE2D 


CP 


2DH 


0E7 


C8 


RET 


Z 


0E8 


FE2B 


CP 


2BH 


OEA 


C8 


RET 


Z 


OEB 


FE24 


CP 


24H 


OED 


C8 


RET 


Z 


OEE 


CI 


POP 


BC 


OEF 


FE3 


CP 


30H 


OFl 


200F 


JR 


NZ, 1102H 


0F3 


23 


INC 


HL 


0F4 


D7 


RST 


lOH 


0F5 


300B 


JR 


NC,1102H 


0F7 


2B 


DEC 


HL 


0F8 


01 






0F9 


2B 


DEC 


HL 


OFA 


77 


LD 


(HL) ,A 


OFB 


Fl 


POP 


AF 


OFC 


28FB 


JR 


Z, 10F9H 


OFE 


CI 


POP 


BC 


OFF 


C3CE10 


JP 


lOCEH 


102 


Fl 


POP 


AF 


103 


28FD 


JR 


Z,1102H 


105 


El 


POP 


HL 


106 


3625 


LD 


(HL) ,25H 


108 


C9 


RET 




109 


E5 


PUSH 


HL 


lOA 


IF 


RRA 





CONVERT TO 5 INTEGER DIGITS 
GET # DIGITS RIGHT OF DECIMAL 

BACK UP IF ZERO 

ONE LESS ZERO (ALLOW FOR " . " ) 

ADD TRAILING ZEROS. 

SAVE POSITION IN BUFFER. 

APPLY $ , * AS NECESSARY 

RESTORE POSITION IN BUFFER 

SKIP IF LEADING SIGN 

APPLY TRAILING SIGN 

NEXT CHARACTER. 

MARK END OF STRING. 

GO TO START OF BUFFER. 

NEXT CHARACTER. 

IS # OF DIGITS TO LEFT 

OF DECIMAL CORRECT 

RETURN IF SO 

GET CHARACTER. 

SPACE? 

ONE LESS TO LEFT IF SO. 

ASTERISK. 

ONE LESS TO LEFT IF SO 

BACK UP ONE CHARACTER. 

SAVE POSITION IN BUFFER. 

SAVE CHARACTER. 

SET RETURN TO LOOP 

GET NEXT CHARACTER. 

II _ II 9 

CONTINUE SCAN IF SO 

" + " ? 

CONTINUE SCAN IF SO. 

II g II 9 

CONTINUE SCAN IF SO. 

CLEAR RETURN 

SPACE? 

OVERFLOW IF NOT. 

SKIP CHARACTER. 

GET NEXT CHARACTER. 

OVERFLOW IF NOT NUMERIC 

BACKUP 

SKIP TO lOFBH 

MOVE CHARACTER. BACK 

GET CHARACTER. 

LOOP TO END OF FIELD 

CLEAR STACK. 

TRY AGAIN. 

CLEAR STACK. 

RESTORE POSITION IN BUFFER 
STORE "%" (OVERFLOW) 
DONE HL => CONVERTED NUMBER 
SAVE POSITION IN BUFFER 
EXPONENTIAL NOTATION? 
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lOB 


DAAAll 


JP 


C, llAAH 


lOE 


2814 


JR 


Z,1124H 


110 


118413 


LD 


DE, 1384H 


113 


CD4 9 0A 


CALL 


0A49H 


116 


1610 


LD 


D,10H 


118 


FA3211 


JP 


M, 1132H 


IIB 


El 


POP 


HL 


lie 


CI 


POP 


BC 


IID 


CDBDOF 


CALL 


OFBDH 


120 


2B 


DEC 


HL 


121 


3625 


LD 


(HL) ,25H 


123 


C9 


RET 




124 


010EB6 


LD 


BC, 0B60EH 


127 


IICAIB 


LD 


DE , IBCAH 


12A 


CDOCOA 


CALL 


OAOCH 


12D 


F21B11 


JP 


P, lllBH 


130 


1606 


LD 


D,06H 


132 


CD5509 


CALL 


0955H 


135 


C40112 


CALL 


NZ, 1201H 


138 


El 


POP 


HL 


139 


CI 


POP 


BC 


13A 


FA5711 


JP 


M,1157H 


13D 


C5 


PUSH 


BC 


13E 


5F 


LD 


E,A 


13F 


78 


LD 


A,B 


140 


92 


SUB 


D 


141 


93 


SUB 


E 


142 


F46912 


CALL 


P,1269H 


145 


CD7D12 


CALL 


127DH 


148 


CDA412 


CALL 


12A4H 


14B 


B3 


OR 


E 


14C 


C47712 


CALL 


NZ,1277H 


14F 


B3 


OR 


E 


150 


C49112 


CALL 


NZ, 1291H 


153 


Dl 


POP 


DE 


154 


C3B610 


JP 


10B6H 


157 


5F 


LD 


E,A 


158 


79 


LD 


A,C 


159 


B7 


OR 


A 


15A 


C4160F 


CALL 


NZ,0F16H 


15D 


83 


ADD 


A,E 


15E 


FA6211 


JP 


M,1162H 


161 


AF 


XOR 


A 


162 


C5 


PUSH 


BC 


163 


F5 


PUSH 


AF 


164 


FC180F 


CALL 


M, 0F18H 


167 


FA6411 


JP 


M,1164H 


16A 


CI 


POP 


BC 


16B 


7B 


LD 


A,E 


16C 


90 


SUB 


B 


16D 


CI 


POP 


BC 


16E 


5F 


LD 


E,A 


16F 


82 


ADD 


A,D 


170 


78 


LD 


A,B 


171 


FA7F11 


JP 


M,117FH 


174 


92 


SUB 


D 


175 


93 


SUB 


E 



JUMP IF SO. 
JUMP IF S.P. 

15 AC CUM 

LESS THAN 10**16? 

16 DIGIT FIELD 
JUMP IF SO. 
CLEAR 

STACK 

RE-ENTER EDIT ROUTINE 

STORE "%" 

BEFORE NUMBER (OVERFLOW) 

RETURN TO CALLER. 

IS 

AC CUM 

> 10**16? 

SKIP IF SO. 

SIX DIGIT NUMBER 

GET SIGN OF ACCUM 

SCALE IF NON-ZERO. 

RESTORE POSITION IN BUFFER 

RESTORE BC 

JUMP IF SCALED UP 

SAVE BC 

SAVE SCALE FACTOR. 

COMPUTE # 

OF LEADING ZEROES. 

STORE LEADING ZEROES. 

SET UP COMMAS & DECIMAL 

CONVERT ACCUM TO ASCII 

WAS NUMBER SCALED? 

STORE TRAILING ZEROS IF SO. 

WAS NUMBER SCALED? 

APPLY DECIMAL IF NECESSARY 

RESTORE OLD BC 

FINISH UP 

SAVE SCALE FACTOR. 

GET # DIGITS 

FOLLOWING DECIMAL 

DECREMENT IF NOT ZERO. 

ADD SCALE FACTOR 

SKIP IF RESULT NEGATIVE. 

NO SCALING DOWN. 

SAVE BC. 

SAVE NEW FACTOR 

IF NEGATIVE, ACCUM ACCUM/ 10 

LOOP UNTIL POSITIVE 

GET FACTOR 

A = OLD - NEW SCALE FACTOR 

RESTORE BC 

IS NUMBER ALL RIGHT 

IF DECIMAL? 

GET # DIGITS ON LEFT 

SKIP IF ALL RIGHT. 

COMPUTE # LEADING. 

ZEROES LEFT OF DECIMAL 
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176 


F46912 


CALL 


P,1269H 


STORE LEADING ZEROES. 


179 


C5 


PUSH 


BC 


SAVE BC 


17A 


CD7D12 


CALL 


127DH 


SET UP COMMAS & DECIMAL 


17D 


1811 


JR 


1190H 


CONTINUE. 


17F 


CD6912 


CALL 


1269H 


STORE LEADING ZEROES. 


182 


79 


LD 


A,C 


GET # DIGITS TO RIGHT 


183 


CD9412 


CALL 


1294H 


STORE DECIMAL POINT 


186 


4F 


LD 


C,A 


SAVE # DIGITS ON RIGHT 


187 


AF 


XOR 


A 


COMPUTE # OF 


188 


92 


SUB 


D 


LEADING ZEROES 


189 


93 


SUB 


E 


RIGHT OF DECIMAL 


18A 


CD6912 


CALL 


1269H 


STORE ZEROES. 


18D 


C5 


PUSH 


BC 


SAVE BC. 


18E 


47 


LD 


B,A 


TURN OFF DECIMAL 


18F 


4F 


LD 


C,A 


AND COMMA FLAGS 


190 


CDA412 


CALL 


12A4H 


CONVERT ACCUM TO ASCII 


193 


CI 


POP 


BC 


RESTORE BC 


194 


Bl 


OR 


C 


GET # DIGITS ON RIGHT 


195 


2003 


JR 


NZ, 119AH 


SKIP IF NON-ZERO 


197 


2AF340 


LD 


HL, (40F3H) 


POSITION TO DECIMAL POINT. 


19A 


83 


ADD 


A,E 


COMPUTE # OF 


19B 


3D 


DEC 


A 


TRAILING ZEROES. 


19C 


F46912 


CALL 


P,1269H 


STORE TRAILING ZEROES. 


19F 


50 


LD 


D,B 


SAVE # DIGITS ON LEFT 


lAO 


C3BF10 


JP 


lOBFH 


FINISH UP. 


1A3 


E5 


PUSH 


HL 


SAVE POSITION IN BUFFER 


1A4 


D5 


PUSH 


DE 


SAVE DE 


1A5 


CDCCOA 


CALL 


OACCH 


CONVERT ACCUM TO S.P. 


1A8 


Dl 


POP 


DE 


RESTORE DE. 


1A9 


AF 


XOR 


A 


FORCE S.P. JUMP 


lAA 


CABOll 


JP 


Z, IIBOH 


JUMP IF S.P. 


IAD 


lElO 


LD 


E,10H 


16 DIGIT FIELD 


lAF 


01 






MASK TO 11B2H 


IBO 


1E06 


LD 


E, 06H 


6 DIGIT FIELD 


1B2 


CD5509 


CALL 


0955H 


GET SIGN OF ACCUM. 


1B5 


37 


SCF 




JUMP AT 11F3H UNLESS SCALED. 


1B6 


C40112 


CALL 


NZ,1201H 


SCALE ACCUM IF NECESSARY 


1B9 


El 


POP 


HL 


RESTORE POSITION 


IBA 


CI 


POP 


BC 


RESTORE BC. 


IBB 


F5 


PUSH 


AF 


SAVE JUMP FLAG. 


IBC 


79 


LD 


A,C 


GET # DIGITS 


IBD 


B7 


OR 


A 


TO RIGHT OF DECIMAL 


IBE 


F5 


PUSH 


AF 


SAVE A. 


IBF 


C4160F 


CALL 


NZ, 0F16H 


DECREMENT IF NON-ZERO 


1C2 


80 


ADD 


A,B 


COMPUTE TOTAL 


1C3 


4F 


LD 


C,A 


# OF DIGITS. 


1C4 


7A 


LD 


A,D 


DOES SIGN FOLLOW 


1C5 


E604 


AND 


04H 


NUMBER? 


1C7 


FEOl 


CP 


OIH 


D= YES 


1C9 


9F 


SBC 


A, A 


D=-l (FF) NO 


ICA 


57 


LD 


D,A 




ICB 


81 


ADD 


A,C 


ADJUST TOTAL # OF DIGITS 


ICC 


4F 


LD 


C,A 


TO ACCOMMODATE TRAILING SIGN 


ICD 


93 


SUB 


E 


COMPUTE SCALE FACTOR 


ICE 


F5 


PUSH 


AF 


SAVE SCALE FACTOR 


ICF 


C5 


PUSH 


BC 


SAVE SIZES. 


IDO 


FC180F 


CALL 


M,0F18H 


SCALE DOWN 
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1D3 


FADOll 


JP 


M, IIDOH 


IF NECESSARY 


1D6 


CI 


POP 


BC 


RESTORE SIZES 


1D7 


Fl 


POP 


AF 


RESTORE SCALE FACTOR 


IDS 


C5 


PUSH 


BC 


SAVE BOTH AGAIN. 


1D9 


F5 


PUSH 


AF 




IDA 


FADE 11 


JP 


M, IIDEH 


SKIP IF SCALED DOWN 


IDD 


AF 


XOR 


A 


DO NOT SCALE DOWN 


IDE 


2F 


CPL 




SCALE FACTOR = 


IDF 


3C 


INC 


A 


- SCALE FACTOR 


lEO 


80 


ADD 


A,B 


COMPUTE 


lEl 


3C 


INC 


A 


DECIMAL 


1E2 


82 


ADD 


A,D 


POINT 


1E3 


47 


LD 


B,A 


POSITION 


1E4 


OEOO 


LD 


C, OOH 


NO COMMAS 


1E6 


CDA412 


CALL 


12A4H 


CONVERT ACCUM TO ASCII 


1E9 


Fl 


POP 


AF 


GET SCALE FACTOR 


lEA 


F47112 


CALL 


P,1271H 


APPLY TRAILING ZEROES. 


lED 


CI 


POP 


BC 


RESTORE BC 


lEE 


Fl 


POP 


AF 


GET # OF DIGITS TO RIGHT 


lEF 


CC2F09 


CALL 


Z,092FH 


BACKUP IF ZERO 


1F2 


Fl 


POP 


AF 


RESTORE JUMP FLAG. 


1F3 


3803 


JR 


C,11F8H 


JUMP IF NO SCALING WAS DONE 


1F5 


83 


ADD 


A,E 


COMPUTE . 


1F6 


90 


SUB 


B 


EXPONENT 


1F7 


92 


SUB 


D 




1F8 


C5 


PUSH 


BC 


SAVE BC 


1F9 


CD7410 


CALL 


1074H 


APPLY EXPONENT 


IFC 


EB 


EX 


DE,HL 


RESTORE POSITION 


IFD 


Dl 


POP 


DE 


CLEAR STACK. 


IFE 


C3BF10 


JP 


lOBFH 


FINISH UP. 


201 


D5 


PUSH 


DE 


SAVE DE 


202 


AF 


XOR 


A 


# DIVISIONS = 


203 


F5 


PUSH 


AF 




204 


E7 


RST 


20H 


CHECK TYPE OF ACCUM 


205 


E22212 


JP 


PO,1222H 


JUMP IF S.P. 


208 


3A2441 


LD 


A, (4124H) 


IS EXPONENT > 91H? 


20B 


FE91 


CP 


91H 




2 0D 


D22212 


JP 


NC, 1222H 


JUMP IF SO 


210 


116413 


LD 


DE, 1364H 


ACCUM = 


213 


212741 


LD 


HL,4127H 


ACCUM 


216 


CDD3 9 


CALL 


09D3H 




219 


CDAIOD 


CALL 


ODAIH 


10 MILLION 


21C 


Fl 


POP 


AF 


# DIVISIONS = 


21D 


D6 0A 


SUB 


OAH 


# DIVISIONS 


21F 


F5 


PUSH 


AF 


- 10 


220 


18E6 


JR 


1208H 


LOOP 


222 


CD4F12 


CALL 


124FH 


BRING ACCUM BELOW 999,999 


225 


E7 


RST 


20H 


CHECK TYPE OF ACCUM 


226 


300B 


JR 


NC,1233H 


JUMP IF D.P. 


228 


014391 


LD 


BC, 9143H 


IS 


22B 


11F94F 


LD 


DE,4FF9H 


ACCUM 


22E 


CDOCOA 


CALL 


OAOCH 


> 99, 999? 


231 


1806 


JR 


1239H 




233 


116C13 


LD 


DE,136CH 


IS ACCUM 


236 


CD4 90A 


CALL 


0A4 9H 


> + 1.0D15? 


239 


F24B12 


JP 


P,124BH 


JUMP IF SO 
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23C 


Fl 


POP 


AF 


AC CUM = 


23D 


CDOBOF 


CALL 


OFOBH 


ACCUM * 10 


240 


F5 


PUSH 


AF 


# DIVISIONS = # DIVISIONS - 1 


241 


18E2 


JR 


1225H 


TRY AGAIN 


243 


Fl 


POP 


AF 


ACCUM = 


244 


CD180F 


CALL 


0F18H 


ACCUM/ 10 


247 


F5 


PUSH 


AF 


# DIVISIONS = # DIVISIONS + 1 


248 


CD4F12 


CALL 


124FH 


REPEAT UNTIL WITHIN RANGE 


24B 


Fl 


POP 


AF 


GET # DIVISIONS 


24C 


Dl 


POP 


DE 


RESTORE DE 


24D 


B7 


OR 


A 


SET STATUS 


24E 


C9 


RET 




RETURN TO CALLER 


24F 


E7 


RST 


20H 


CHECK TYPE OF ACCUM 


250 


EA5E12 


JP 


PE, 125EH 


JUMP IF NOT S.P. 


253 


017494 


LD 


BC,9474H 


IS 


256 


11F823 


LD 


DE,23F8H 


ACCUM 


259 


CDOCOA 


CALL 


OAOCH 


> 999, 999? 


25C 


1806 


JR 


1264H 




25E 


117413 


LD 


DE, 1374H 


IS ACCUM 


261 


CD4 9 0A 


CALL 


0A4 9H 


> + 1.0D16? 


264 


El 


POP 


HL 


GET RETURN ADDRESS 


265 


F24312 


JP 


P,1243H 


JUMP IF RESULT TRUE 


268 


E9 


JP 


(HL) 


RETURN 


269 


B7 


OR 


A 


STORE 


26A 


C8 


RET 


Z 


(A) 


26B 


3D 


DEC 


A 


ZEROES 


26C 


3630 


LD 


(HL) ,30H 


IN 


26E 


23 


INC 


HL 


BUFFER 


26F 


18F9 


JR 


12 6AH 




271 


2004 


JR 


NZ,1277H 


DO AT LEAST ONCE IF NZ 


273 


C8 


RET 


Z 


RETURN IF DONE 


274 


CD9112 


CALL 


1291H 


APPLY COMMAS AND DECIMAL 


277 


3630 


LD 


(HL) ,30H 


SPORE TRAILING ZERO 


279 


23 


INC 


HL 


NEXT LOCATION 


2 7A 


3D 


DEC 


A 


ONE LESS TO STORE 


27B 


18F6 


JR 


1273H 


CONTINUE . 


27D 


7B 


LD 


A,E 


B = DECIMAL POSITION 


27E 


82 


ADD 


A,D 




27F 


3C 


INC 


A 




280 


47 


LD 


B,A 




281 


3C 


INC 


A 


C = COMMA COUNTER 


282 


D603 


SUB 


03H 




284 


30FC 


JR 


NC, 1282H 




286 


C605 


ADD 


A, 05H 




288 


4F 


LD 


C,A 




289 


3AD84 


LD 


A, (40D8H) 


RESET COMMA COUNTER 


28C 


E640 


AND 


40H 


IF COMMAS NOT SELECTED 


28E 


CO 


RET 


NZ 




28F 


4F 


LD 


C,A 




290 


C9 


RET 




RETURN TO CALLER 


291 


05 


DEC 


B 


ONE LESS DIGIT ON LEFT 


292 


2008 


JR 


NZ,12 9CH 


SKIP IF NOT AT DECIMAL 


294 


362E 


LD 


(HL) ,2EH 


STORE DECIMAL 


296 


22F340 


LD 


(40F3H) ,HL 


SAVE LOCATION 


299 


23 


INC 


HL 


NEXT LOCATION 


2 9A 


48 


LD 


C,B 


NO MORE COMMAS 


29B 


C9 


RET 




DONE 
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29C 


OD 


DEC 


C 


29D 


CO 


RET 


NZ 


29E 


362C 


LD 


(HL) ,2CH 


2A0 


23 


INC 


HL 


2A1 


0E03 


LD 


C,03H 


2A3 


C9 


RET 




2A4 


D5 


PUSH 


DE 


2A5 


E7 


RST 


20H 


2A6 


E2EA12 


JP 


PO, 12EAH 


2A9 


C5 


PUSH 


EC 


2AA 


E5 


PUSH 


HL 


2AB 


CDFC09 


CALL 


9FCH 


2AE 


217C13 


LD 


HL, 137CH 


2B1 


CDF709 


CALL 


09F7H 


2B4 


CD770C 


CALL 


0C77H 


2B7 


AF 


XOR 


A 


2B8 


CD7B0B 


CALL 


0B7BH 


2BB 


El 


POP 


HL 


2BC 


CI 


POP 


BC 


2BD 


118C13 


LD 


DE,138CH 


2C0 


3E0A 


LD 


A, OAH 


2C2 


CD9112 


CALL 


1291H 


2C5 


C5 


PUSH 


BC 


2C6 


F5 


PUSH 


AF 


2C7 


E5 


PUSH 


HL 


2C8 


D5 


PUSH 


DE 


2C9 


062F 


LD 


B,2FH 


2CB 


04 


INC 


B 


2CC 


El 


POP 


HL 


2 CD 


E5 


PUSH 


HL 


2CE 


CD4 8 0D 


CALL 


0D48H 


2D1 


30F8 


JR 


NC,12CBH 


2D3 


El 


POP 


HL 


2D4 


CD360D 


CALL 


0D36H 


2D7 


EB 


EX 


DE,HL 


2D8 


El 


POP 


HL 


2D9 


70 


LD 


(HL) ,B 


2 DA 


23 


INC 


HL 


2DB 


Fl 


POP 


AF 


2DC 


CI 


POP 


BC 


2DD 


3D 


DEC 


A 


2DE 


20E2 


JR 


NZ,12C2H 


2E0 


C5 


PUSH 


BC 


2E1 


E5 


PUSH 


HL 


2E2 


211D41 


LD 


HL,411DH 


2E5 


CDB10 9 


CALL 


09B1H 


2E8 


180C 


JR 


12F6H 


2EA 


C5 


PUSH 


BC 


2EB 


E5 


PUSH 


HL 


2EC 


CD0807 


CALL 


0708H 


2EF 


3C 


INC 


A 


2F0 


CDFBOA 


CALL 


OAFBH 


2F3 


CDB4 9 


CALL 


09B4H 


2F6 


El 


POP 


HL 


2F7 


CI 


POP 


BC 


2F8 


AF 


XOR 


A 


2F9 


11D213 


LD 


DE,13D2H 



ONE LESS CHARACTER LEFT TO STORE 

RETURN IF NOT ZERO 

STORE A COMMA 

NEXT CHARACTER. 

STORE 3 MORE BEFORE ANOTHER 

CONTINUE 

SAVE DE 

CHECK TYPE OF ACCUM 

JUMP IF S.P. 

SAVE BC 

SAVE HL 

ACCUM 2 = ACCUM 

ACCUM = +0.5D + 

ACCUM = ACCUM + ACCUM 2 

CLEAR STATUS 

GET WHOLE PART OF ACCUM 

RESTORE HL 

RESTORE BC 

DE => TABLE OF POWERS OF 10 

TABLE HAS 10 ENTRIES 

APPLY COMMAS & DECIMAL 

SAVE COMMA FLAGS 

SAVE # ENTRIES LEFT 

SAVE POSITION IN BUFFER 

SAVE POSITION IN TABLE. 

B = "0" AT FIRST 

B = B + 1 

HL = POSITION IN TABLE 

SAVE POSITION IN TABLE 

ACCUM = ACCUM - TABLE ENTRY 

LOOP UNTIL ACCUM < . 

RESTORE POSITION IN TABLE 

ACCUM = ACCUM + TABLE ENTRY 

SAVE TABLE ENTRY LOCATION 

GET POSITION IN BUFFER 

STORE CHART. 

NEXT LOCATION IN BUFFER 

RESTORE # ENTRIES LEFT 

RESTORE COMMA FLAGS 

ONE LESS ENTRY TO GO . 

LOOP UNTIL DONE 

SAVE COMMA FLAGS 

SAVE POSITION 

MOVE LSB ' S TO 

MSB POSITION 

PROCESS AS S.P. 

SAVE COMMA FLAGS 

SAVE POSITION 

ACCUM = ACCUM +0.5 

INCREASE EXPONENT 

CONVERT TO INTEGER 

SAVE IN ACCUM. 

RESTORE POSITION 

RESTORE COMMA FLAGS 

CLEAR CARRY 

DE => TABLE OF POWERS OF 10 
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2FC 


3F 


CCF 




LOOP TWICE 


2FD 


CD9112 


CALL 


1291H 


APPLY COMMAS & DECIMAL 


300 


C5 


PUSH 


EC 


SAVE COMMA FLAGS 


301 


F5 


PUSH 


AF 


SAVE LOOP FLAGS 


302 


E5 


PUSH 


HL 


SAVE POSITION 


303 


D5 


PUSH 


DE 


SAVE TABLE ENTRY LOCATION 


304 


CDBF09 


CALL 


09BFH 


BCDE = ACCUM 


307 


El 


POP 


HL 


GET TABLE ENTRY LOCATION 


308 


062F 


LD 


B,2FH 


B = "0" FIRST TIME AROUND 


3 0A 


04 


INC 


B 


B = B + 1 


30B 


7B 


LD 


A,E 


CDE = CDE - ENTRY 


30C 


96 


SUB 


(HL) 




3 0D 


5F 


LD 


E,A 




30E 


23 


INC 


HL 




30F 


7A 


LD 


A,D 




310 


9E 


SBC 


A, (HL) 




311 


57 


LD 


D,A 




312 


23 


INC 


HL 




313 


79 


LD 


A,C 




314 


9E 


SBC 


A, (HL) 




315 


4F 


LD 


C,A 




316 


2B 


DEC 


HL 


BACK UP TO 


317 


2B 


DEC 


HL 


START OF TABLE ENTRY 


318 


30F0 


JR 


NC, 13 0AH 


LOOP UNTIL CDE < 


31A 


CDB707 


CALL 


07B7H 


CDE = CDE + ENTRY 


31D 


23 


INC 


HL 


POINT TO NEXT ENTRY 


31E 


CDB4 09 


CALL 


09B4H 


ACCUM = BCDE 


321 


EB 


EX 


DE,HL 


SAVE TABLE ENTRY LOCATION 


322 


El 


POP 


HL 


GET POSITION 


323 


70 


LD 


(HL) ,B 


STORE DIGIT 


324 


23 


INC 


HL 


NEXT POSITION 


325 


Fl 


POP 


AF 


RESTORE LOOP FLAG 


326 


CI 


POP 


BC 


RESTORE COMMA FLAG 


327 


38D3 


JR 


C, 12FCH 


LOOP UNTIL DONE 


329 


13 


INC 


DE 


POINT TO 


32A 


13 


INC 


DE 


NEXT TABLE 


32B 


3E04 


LD 


A,04H 


USE LAST 4 ENTRIES OF IT 


32D 


1806 


JR 


1335H 


CONTINUE 


32F 


D5 


PUSH 


DE 


SAVE DE 


330 


11D813 


LD 


DE,13D8H 


DE => TABLE OF POWERS OF 10 


333 


3E05 


LD 


A, 05H 


TABLE HAS 5 ENTRIES 


335 


CD9112 


CALL 


1291H 


APPLY COMMAS & DECIMAL 


338 


C5 


PUSH 


BC 


SAVE COMMA FLAGS 


339 


F5 


PUSH 


AF 


SAVE # ENTRIES LEFT 


33A 


E5 


PUSH 


HL 


SAVE POSITION. 


33B 


EB 


EX 


DE,HL 


HL => TABLE ENTRY 


33C 


4E 


LD 


C, (HL) 




33D 


23 


INC 


HL 




33E 


46 


LD 


B, (HL) 




33F 


C5 


PUSH 


BC 


SAVE TABLE ENTRY 


340 


23 


INC 


HL 




341 


E3 


EX 


(SP) ,HL 


HL = TABLE ENTRY SAVE HL 


342 


EB 


EX 


DE,HL 


DE = TABLE ENTRY 


343 


2A2141 


LD 


HL, (4121H) 


HL = ACCUM 


346 


062F 


LD 


B,2FH 


B INITIALLY "0" 


348 


04 


INC 


B 


B = B + 1 


349 


7D 


LD 


A,L 


HL = HL - DE 
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34A 


93 


SUB 


E 


34B 


6F 


LD 


L,A 


34C 


7C 


LD 


A,H 


34D 


9A 


SBC 


A,D 


34E 


67 


LD 


H,A 


34F 


30F7 


JR 


NC, 1348H 


351 


19 


ADD 


HL,DE 


352 


222141 


LD 


(4121H) ,HL 


355 


Dl 


POP 


DE 


356 


El 


POP 


HL 


357 


70 


LD 


(HL) ,B 


358 


23 


INC 


HL 


359 


Fl 


POP 


AF 


3 5A 


CI 


POP 


EC 


35B 


3D 


DEC 


A 


35C 


20D7 


JR 


NZ, 1335H 


35E 


CD9112 


CALL 


1291H 


361 


77 


LD 


(HL) ,A 


362 


Dl 


POP 


DE 


363 


C9 


RET 




364 


00000000F90215A2 




36C 


FDFF9F31A95F63B2 




374 


FEFF03BFC91B0EB6 




37C 


00000000 






380 


00000080 






384 


000004BFC91B 




38A 


0EB6 






38C 


0080C6A47E8D03 




393 


00407A10F35A00 




3 9A 


00A0724E180900 




3A1 


0010A5D4E80000 




3A8 


00E87648170000 




3AF 


00E40B54020000 




3B6 


00CA9A3B000000 




3BD 


00E1F505000000 




3C4 


80969800000000 




3CB 


40420F00000000 




3D2 


A08601 






3D5 


102700 






3D8 


1027 






3 DA 


E803 






3DC 


6400 






3DE 


OAOO 






3E0 


0100 






3E2 


218209 


LD 


HL, 0982H 


3E5 


E3 


EX 


(SP) ,HL 


3E6 


E9 


JP 


(HL) 




CDA4 9 


SQUARE- 


■ROOT ROUTINE 


3E7 


CALL 


9A4H 


3EA 


218013 


LD 


HL, 1380H 


3ED 


CDB109 


CALL 


09B1H 


3F0 


1803 


JR 


13F5H 



LOOP IF HL > 

HL = HL + DE 

SAVE HL IN AC CUM 

RESTORE POSITION IN TABLE 

RESTORE POSITION IN BUFFER 

STORE DIGIT 

NEXT CHARACTER 

RESTORE # ENTRIES LEFT 

RESTORE COMMA FLAGS 

ONE LESS ENTRY TO DO 

LOOP UNTIL DONE 

APPLY COMMAS & DECIMAL 

MARK END OF STRING 

RESTORE DE 

RETURN TO CALLER. 

NUMERICAL DATA 

+ ID + 10 

+ ID + 15 

+ ID + 16 

+ 0.5D + 00 

+ 0.5E + 00 

+ ID + 16 

+ 0.502778E + 00 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 



0.502778E 

10**15 

10**14 

10**13 

10**12 

10**11 

10**10 

10**9 

10**8 

10**7 

10**6 

10**5 

10**4 

10**4 

10**3 

10**2 

10**1 

10**0 



7 WORD INTEGERS FOR USE 
WITH D.P. 



3 WORD INTEGERS FOR USE 
WITH S.P. 

2 WORD INTEGERS FOR USE 
WITH INTEGERS 



SET RETURN THROUGH 
NEGATION ROUTINE 
RETURN TO CALLER 

ACCUM = SQR (ACCUM) 

SAVE ARGUMENT ON STACK 
ACCUM =0.5 

COMPUTE ( ARGUMENT ) * * . 5 
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EXPONENTIATION ROUTINE: ACCUM = (SP) **ACC 



13F2 
13F5 
13F6 
13F7 
13FA 
13FB 
13FD 
1400 
1401 
1404 
1405 
1408 
1409 
14 OA 
140B 
140D 
1410 
1413 
1414 
1415 
1418 
1419 
141A 
141B 
141E 
141F 
1420 
1421 
1422 
1425 
1426 
1429 
142C 
142F 
1430 
1431 
1434 
1435 
1436 



1439 
143C 
143F 
1442 
1445 
1448 
144A 
144D 
1450 
1452 
1454 
1457 
1458 
145B 
145E 



CDBIOA 

CI 

Dl 

CD5509 

78 

283C 

F20414 

B7 

CA9A19 

B7 

CA7907 

D5 

C5 

79 

F67F 

CDBF09 

F22114 

D5 

C5 

CD400B 

CI 

Dl 

F5 

CDOCOA 

El 

7C 

IF 

El 

222341 

El 

222141 

DCE213 

CC8209 

D5 

C5 

CD0908 

CI 

Dl 

CD4708 



CDA4 9 

013881 

113BAA 

CD4708 

3A2441 

FE88 

D23109 

CD400B 

C680 

C602 

DA3 10 9 

F5 

21F807 

CD0B07 

CD4108 



CALL 

POP 

POP 

CALL 

LD 

JR 

JP 

OR 

JP 

OR 

JP 

PUSH 

PUSH 

LD 

OR 

CALL 

JP 

PUSH 

PUSH 

CALL 

POP 

POP 

PUSH 

CALL 

POP 

LD 

RRA 

POP 

LD 

POP 

LD 

CALL 

CALL 

PUSH 

PUSH 

CALL 

POP 

POP 

CALL 



OABIH 

BC 

DE 

0955H 

A,B 

Z, 1439H 

P, 1404H 

A 

Z, 199AH 

A 

Z, 0779H 

DE 

BC 

A,C 

7FH 

09BFH 

P, 1421H 

DE 

BC 

0B40H 

BC 

DE 

AF 

OAOCH 

HL 

A,H 

HL 

(4123H) 
HL 

(4121H) 
C, 13E2H 
Z, 0982H 
DE 
BC 

0809H 
BC 
DE 
0847H 



, HL 
, HL 



EXP (ACCUM) 



CALL 

LD 

LD 

CALL 

LD 

CP 

JP 

CALL 

ADD 

ADD 

JP 

PUSH 

LD 

CALL 

CALL 



9A4H 

BC, 8138H 

DE, 0AA3BH 

0847H 

A, (4124H) 

88H 

NC, 0931H 

0B40H 

A, 80H 

A, 02H 

C, 0931H 

AF 

HL, 07F8H 

070BH 

0841H 



MAKE ACCUM S.P. 
BCDE = (SP) 

GET SIGN OF ACCUM. 

GET EXPONENT OF BCDE 

IF ACCUM = THEN JUMP 

SKIP IF ACCUM > 

TEST BCDE 

/O ERROR IF ZERO 

TEST BCDE 

ANSWER = IF ZERO 

SAVE BASE 

CHECK SIGN OF BASE 

BCDE = EXPONENT. 

JUMP IF BASE POSITIVE 

SAVE EXPONENT 

ACCUM = INT (EXPONENT) 
RESTORE EXPONENT 

SAVE LSB OF EXPONENT 
EXPONENT = INT (EXPONENT) 
GET LSB OF EXPONENT 
IS EXPONENT EVEN? 



ACCUM 



BASE 



ADJUST SIGN 

SAVE EXPONENT 

ACCUM = LOG (BASE) 
RESTORE EXPONENT 

ACCUM = LOG (BASE) * EXPONENT 



SAVE ARGUMENT 

ACCUM = 

ARGUMENT 

* 1.4427 

OUT OF RANGE? 

OV ERROR IF SO 
CHECK AGAIN 



OV ERROR IF SO. 

SAVE INTEGER VALUE OF ARGUMENT 

ACCUM = 

ACCUM + 1 

ACCUM = ACCUM * 0.693115 
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461 


Fl 


POP 


AF 


462 


CI 


POP 


EC 


463 


Dl 


POP 


DE 


464 


F5 


PUSH 


AF 


465 


CD1307 


CALL 


0713H 


468 


CD8209 


CALL 


0982H 


46B 


217914 


LD 


HL,1479H 


46E 


CDA914 


CALL 


14A9H 


471 


110000 


LD 


DE, OOOOH 


474 


CI 


POP 


EC 


475 


4A 


LD 


CD 


476 


C34708 


JP 


0847H 


479 


08 






4 7A 


402E9474 






47E 


704F2E77 






482 


6E02887A 






486 


E6A02A7C 






48A 


50AAAA7E 






48E 


FFFF7F7F 






492 


00008081 






496 


00000081 






4 9A 


CDA4 9 


CALL 


9A4H 


49D 


11320C 


LD 


DE,0C32H 


4A0 


D5 


PUSH 


DE 


4A1 


E5 


PUSH 


HL 


4A2 


CDBF09 


CALL 


09BFH 


4A5 


CD4708 


CALL 


0847H 


4A8 


El 


POP 


HL 


4A9 


CDA4 9 


CALL 


9A4H 


4AC 


7E 


LD 


A, (HL) 


4 AD 


23 


INC 


HL 


4AE 


CDB10 9 


CALL 


09B1H 


4B1 


06 






4B2 


Fl 


POP 


AF 


4B3 


CI 


POP 


BC 


4B4 


Dl 


POP 


DE 


4B5 


3D 


DEC 


A 


4B6 


C8 


RET 


Z 


4B7 


D5 


PUSH 


DE 


4B8 


C5 


PUSH 


BC 


4B9 


F5 


PUSH 


AF 


4BA 


E5 


PUSH 


HL 


4BB 


CD4708 


CALL 


0847H 


4BE 


El 


POP 


HL 


4BF 


CDC2 9 


CALL 


09C2H 


4C2 


E5 


PUSH 


HL 


4C3 


CD1607 


CALL 


0716H 


4C6 


El 


POP 


HL 


4C7 


18E9 


JR 


14B2H 


4C9 


CD7F0A 


CALL 


0A7FH 


4CC 


7C 


LD 


A,H 


4 CD 


B7 


OR 


A 


4CE 


FA4A1E 


JP 


M,1E4AH 


4D1 


B5 


OR 


L 


4D2 


CAF014 


JP 


Z,14F0H 



RESTORE INT (ARGUMENT) 
RESTORE ARGUMENT 

SAVE INT (ARGUMENT) 

AC CUM = AC CUM - ARGUMENT 

MAKE ACCUM POSITIVE 

EXPAND POWER 

SERIES 

BCDE = 2/ INT (ARGUMENT) 



RESULT 



ACCUM * BASE 



DATA FOR EXP(X) EXPANSION 

8 COEFFICIENTS 

- 1/7 
+ 1/6 

- 1/5 
+ 1/4 

- 1/3 
+ 1/2 

- 1 
+ 1 

SAVE ARGUMENT 
RETURN THROUGH 
A MULTIPLICATION 
SAVE DATA POINTER 
SQUARE ARGUMENT 

RESTORE DATA POINTER 

SAVE ARGUMENT SQUARED 

GET # COEFFICIENTS 

POINT TO FIRST COEFFICIENTS 

ACCUM = FIRST COEFFICIENT 

MASK TO 14B3H 

RESTORE # COEFFICIENTS LEFT 

RESTORE ARGUMENT 

RAISED TO A POWER 

ONE LESS TO DO 

RETURN IF DONE 

SAVE ARGUMENT 

RAISED TO POWER 

SAVE # COEFFICIENTS LEFT 

SAVE COEFFICIENTS POINTER 

ACCUM = ACCUM* ARGUMENT* *N 

RESTORE COEFFICIENT POINTER 

GET NEXT COEFFICIENT 

SAVE COEFFICIENT POINTER 

ADD COEFFICIENT TO ACCUM 

RESTORE COEFFICIENT POINTER 

LOOP UNTIL DONE 

HL = ACCUM = CINT (ACCUM) 

ARGUMENT NEGATIVE 

EC ERROR IF SO 
ARGUMENT ZERO? (RND(O)) 
JUMP IF SO 
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4D5 


E5 


PUSH 


HL 


SAVE ARGUMENT 


4D6 


CDF014 


CALL 


14F0H 


COMPUTE RANDOM NUMBER 


4D9 


CDBF09 


CALL 


09BFH 


GET RANDOM NUMBER 


4DC 


EB 


EX 


DE,HL 


SAVE NUMBER & 


4DD 


E3 


EX 


(SP) ,HL 


RESTORE ARGUMENT 


4DE 


C5 


PUSH 


BC 




4DF 


CDCFOA 


CALL 


OACFH 


CONVERT ARGUMENT TO S.P. 


4E2 


CI 


POP 


BC 


RESTORE RANDOM NUMBER 


4E3 


Dl 


POP 


DE 




4E4 


CD4708 


CALL 


0847H 


RESULT = ARGUMENT 


4E7 


21F807 


LD 


HL, 07F8H 


* RANDOM NUMBER 


4EA 


CD0B07 


CALL 


070BH 


+ 1 


4ED 


C3400B 


JP 


0B40H 


CONVERT TO INTEGER & RETURN 


4F0 


219040 


LD 


HL,4090H 


HL => SEED # 2 


4F3 


E5 


PUSH 


HL 


SAVE POINTER 


4F4 


110000 


LD 


DE, OOOOH 


CDE = 


4F7 


4B 


LD 


C,E 




4F8 


2603 


LD 


H, 03H 


# OUTER INTERATIONS 


4 FA 


2E08 


LD 


L, 08H 


# INNER INTERATIONS 


4FC 


EB 


EX 


DE,HL 


CDE 


4FD 


29 


ADD 


HL,HL 


= 


4FE 


EB 


EX 


DE,HL 


CDE 


4FF 


79 


LD 


A,C 


* 


500 


17 


RLA 




2 


501 


4F 


LD 


C,A 




502 


E3 


EX 


(SP) ,HL 


SAVE COUNTERS TO GET POINTE! 


503 


7E 


LD 


A, (HL) 


ROTATE BYTE 


504 


07 


RLCA 




IN WORKSPACE 


505 


77 


LD 


(HL) ,A 


LEFT, CHECK BIT 7 


506 


E3 


EX 


(SP) ,HL 


GET COUNTER & SAVE POINTER 


507 


D21615 


JP 


NC, 1516H 


SKIP IF BIT WAS RESET 


5 0A 


E5 


PUSH 


HL 


SAVE COUNTERS 


50B 


2AAA4 


LD 


HL, (40AAH) 


CDE 


50E 


19 


ADD 


HL,DE 


= 


50F 


EB 


EX 


DE,HL 


CDE 


510 


3AAC4 


LD 


A, (40ACH) 


+ 


513 


89 


ADC 


A,C 


SEED # 1 


514 


4F 


LD 


C,A 




515 


El 


POP 


HL 


RESTORE COUNTERS 


516 


2D 


DEC 


L 


ONE LESS INNER INTERATION 


517 


C2FC14 


JP 


NZ, 14FCH 


LOOP UNTIL DONE 


51A 


E3 


EX 


(SP) ,HL 


POINT TO 


51B 


23 


INC 


HL 


NEXT 


51C 


E3 


EX 


(SP) ,HL 


WORKSPACE BYTE 


51D 


25 


DEC 


H 


ONE LESS OUTER INTERATION 


51E 


C2FA14 


JP 


NZ, 14FAH 


LOOP UNTIL DONE 


521 


El 


POP 


HL 


FIX STACK 


522 


2165B0 


LD 


HL, 0B065H 


SEED # 1 


525 


19 


ADD 


HL,DE 


= 


526 


22AA4 


LD 


(40AAH) ,HL 


CDE 


529 


CDEFOA 


CALL 


OAEFH 


+ 


52C 


3E05 


LD 


A,05H 


372837 


52E 


89 


ADC 


A,C 




52F 


32AC4 


LD 


(40ACH) ,A 




532 


EB 


EX 


DE,HL 


CDE = RANDOM # = SEED #1 


533 


0680 


LD 


B, 80H 


SET EXPONENT (0 < X < 1) 


535 


212541 


LD 


HL,4125H 


POINT TO ACCUM 
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538 


70 


LD 


(HL) ,B 


539 


2B 


DEC 


HL 


53A 


70 


LD 


(HL) ,B 


53B 


4F 


LD 


C,A 


53C 


0600 


LD 


B,OOH 


53E 


C36507 


JP 


0765H 




218B15 


ACCUM 


= COS (ACCUM) 


541 


LD 


HL, 158BH 


544 


CD0B07 


CALL 


070BH 


547 


CDA4 09 


CALL 


9A4H 


54A 


014983 


LD 


BC, 8349H 


54D 


IIDBOF 


LD 


DE,OFDBH 


550 


CDB4 09 


CALL 


09B4H 


553 


CI 


POP 


BC 


554 


Dl 


POP 


DE 


555 


CDA2 08 


CALL 


8A2H 


558 


CDA4 9 


CALL 


9A4H 


55B 


CD400B 


CALL 


0B40H 


55E 


CI 


POP 


BC 


55F 


Dl 


POP 


DE 


560 


CD1307 


CALL 


0713H 


563 


218F15 


LD 


HL,158FH 


566 


CD1007 


CALL 


0710H 


569 


CD5509 


CALL 


0955H 


56C 


37 


SCF 




56D 


F27715 


JP 


P, 1577H 


570 


CD0807 


CALL 


0708H 


573 


CD5509 


CALL 


0955H 


576 


B7 


OR 


A 


577 


F5 


PUSH 


AF 


578 


F48209 


CALL 


P, 0982H 


57B 


218F15 


LD 


HL,158FH 


57E 


CD0B07 


CALL 


070BH 


581 


Fl 


POP 


AF 


582 


D48209 


CALL 


NC, 0982H 


585 


219315 


LD 


HL, 1593H 


588 


C3 9A14 


JP 


14 9AH 



SIGN POSITIVE 
POINT TO EXPONENT 
SAVE EXPONENT 
SET UP 

TO NORMALIZE 
NORMALIZE & RETURN 



ANGLE 



ANGLE +90 DEGREES 



ACCUM = SIN (ACCUM) 
SAVE ANGLE 
ACCUM = 2 PIE 



BCDE 



ANGLE 



ANGLE 



- ANGLE 




MOD 




2 PIE 




(ANGLE = ANGLE 


- 18 DEGREES 


ANGLE = ANGLE - 


9 DEGREE 



CHECK SIGN OF ANGLE 

NO SIGN INVERSION IF POSITIVE 

JUMP IF POSITIVE 

ANGLE = ANGLE + 18 DEGREES 

CHECK SIGN OF ANGLE 

INVERT SIGN WHEN DONE 

SAVE SIGN FLAG 

MAKE ANGLE NEGATIVE IF POSITIVE 

ANGLE = ANGLE +90 DEGREES 

GET SIGN FLAG 
INVERT SIGN IF NECESSARY 
EXPAND POWER SERIES 
AND RETURN TO CALLER 



DATA FOR SIN/COS 



58B 


DB0F4981 






1.5708 


(PIE /2) 


58F 


0000007F 






0.25 


(1/4) 


593 


05 






5 


NUMBER OF COEFFICIENTS 


594 


BAD71E86 






39.7107 




598 


64269987 






-76.575 




59C 


58342387 






81.6022 




5A0 


E05DA586 






-41.3417 




5A4 


DA0F4983 


ACCUM 


= TAN (ACCUM) 


6.28319 


(2 PIE) 


5A8 


CDA4 9 


CALL 


9A4H 


SAVE ANGLE 




5AB 


CD4715 


CALL 


1547H 


COMPUTE SIN 


(ANGLE) 


5AE 


CI 


POP 


BC 


GET ANGLE TC 


1 


5B0 


CDA4 9 


CALL 


9A4H 


SAVE SIN (ANGLE) 


5B3 


EB 


EX 


DE,HL 


BCDE = ANGLE 
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5B4 


CDB4 09 


CALL 


09B4H 


5B7 


CD4115 


CALL 


1541H 


5BA 


C3A008 


JP 


08A0H 




CD5509 


ACCUM 


= ATN (ACCUM) 


5BD 


CALL 


0955H 


SCO 


FCE213 


CALL 


M,13E2H 


5C3 


FC8209 


CALL 


M, 0982H 


5C6 


3A2441 


LD 


A, (4124H) 


5C9 


FE81 


CP 


81H 


5CB 


380C 


JR 


C, 15D9H 


5 CD 


010081 


LD 


BC,8100H 


5D0 


51 


LD 


D,C 


5D1 


59 


LD 


E,C 


5D2 


CDA2 08 


CALL 


8A2H 


5D5 


211007 


LD 


HL, 0710H 


5D8 


E5 


PUSH 


HL 


5D9 


21E315 


LD 


HL, 15E3H 


5DC 


CD9A14 


CALL 


14 9 AH 


5DF 


218B15 


LD 


HL,158BH 


5E2 


C9 


RET 




5E3 


09 






5E4 


4AD73B78 






5E8 


026E847B 






SEC 


FEC12F7C 






5F0 


74319A7D 






5F4 


843D5A7D 






5F8 


C87F917E 






5FC 


E4BB4C7E 






600 


6CAAAA7F 






604 


00000081 






608 


8A09 






6 0A 


370B 






60C 


7709 






60E 


D427 






610 


EF2A 






612 


F527 






614 


E713 






616 


C914 






618 


0908 






61A 


3914 






61C 


4115 






61E 


4715 






620 


A815 






622 


BD15 






624 


AA2C 






626 


5241 






628 


5841 






62A 


5E41 






62C 


6141 






62E 


6441 






630 


6741 






632 


6A41 







ACCUM = ANGLE 
COMPUTE COS (ANGLE) 
RESULT = SIN/COS. DONE 



CHECK SIGN OF ARGUMENT 

CHANGE SIGN ON RETURN IF NEGATIVE 

CHANGE SIGN IF NEGATIVE 



IS ARGUMENT 
LESS THAN 1 . 
SKIP IF SO 
BCDE = +1.0 



0? 



ACCUM = 1 /ACCUM 

ON EXIT, ACCUM = 

ACCUM + PIE /2 

EXPAND 

POWER SERIES 

POINT TO PIE /2 

DONE. FIX SIGN IF NECESSARY 



# COEFFICIENTS 
COEFFICIENTS 



DATA FOR ATN 

9 

2 .86623E-03 
-0. 0161657 

0. 0429096 
-0. 0752896 

0.106563 
-0.142089 

0.199936 
-0.333331 

1.0 



FUNCTION ADDRESS TABLE 



098A 
0B37 
0977 
2 7D4 
2AEF 
27F5 
13E7 
14C9 
0809 
1439 
1541 
1547 
15A8 
15BD 
2CAA 
4152 
4158 
415E 
4161 
4164 
4167 
416A 



SGN 

INT 

ABS 

FRE 

INP 

POS 

SQR 

RND 

LOG 

EXP 

COS 

SIN 

TAN 

ATN 

PEEK 

CVI 

CVS 

CVD 

EOF 

LOC 

LOF 

MKI$ 
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1634 6D41 
1636 7041 
1638 7F0A 
163A BlOA 
163C DBOA 
163E 260B 
1640 032A 
1642 3628 
1644 C52A 
1646 0F2A 
1648 1F2A 
164A 612A 
164C 912A 
164E 9A2A 



1650 C54E44 
1653 C64F52 
1656 D245534554 
165B D34554 
165E C34C53 
1661 C34D44 
1664 D2414E444F4D 
166A CE455854 
166E C4415441 
1672 C94E505554 
1677 C4494D 
167A D2454144 
167E CC4554 
1681 C74F544F 
1685 D2554E 
1688 C946 

168A D24553544F5245 
1691 C74F535542 
1696 D2455455524E 
169C D2454D 
169F D3544F50 
16A3 C54C5345 
16A7 D4524F4E 
16AB D4524F4646 
16B0 C44546535452 
16B6 C44546494E54 
16BC C44546534E47 
16C2 C4454644424C 
16C8 CC494E45 
16CC C5444954 
16D0 C552524F52 
16D5 D24553554D45 
16DB CF5554 
16DE CF4E 
16E0 CF50454E 
16E4 C649454C44 
16E9 C74554 
16EC D05554 
16EF C34C4F5345 
16F4 CC4F4144 
16F8 CD45524745 



416D 


MKS$ 


4170 


MKD$ 


0A7F 


CINT 


OABl 


CSNG 


OADB 


CDBL 


0B26 


FIX 


2A03 


LEN 


2836 


STR$ 


2AC5 


VAL 


2A0F 


ASC 


2A1F 


CHR$ 


2A61 


LEFT$ 


2A91 


RIGHT$ 


2A9A 


MID$ 


RESERVED 


WORD TABLE 


END 


8 SEE ADDRESS 


FOR 


81 TABLE AT 1822H 


RESET 


82 


SET 


83 


CLS 


84 


CMD 


85 


RANDOM 


86 


NEXT 


87 


DATA 


88 


INPUT 


89 


DIM 


8A 


READ 


8B 


LET 


8C 


GOTO 


8D 


RUN 


8E 


IF 


8F 


RESTORE 


90 


GOSUB 


91 


RETURN 


92 


REM 


93 


STOP 


94 


ELSE 


95 


TRON 


96 


TROFF 


97 


DEFSTR 


98 


DEFINT 


99 


DEFSNG 


9A 


DEFDBL 


9B 


LINE 


9C 


EDIT 


9D 


ERROR 


9E 


RESUME 


9F 


OUT 


AO 


ON 


Al 


OPEN 


A2 


FIELD 


A3 


GET 


A4 


PUT 


A5 


CLOSE 


A6 


LOAD 


A7 


MERGE 


A8 
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16FD CE414D45 
1701 CB494C4C 
1705 CC534554 
1709 D2534554 
170D D3415645 
1711 D3595354454D 
1717 CC5052494E54 
171D C44546 
1720 D04F4B45 
1724 D052494E54 
1729 C34F4E54 
172D CC495354 
1731 CC4C495354 
1736 C4454C455445 
173C C155544F 
1740 C34C454152 
1745 C34C4F4144 
174A C353415645 
174F CE4557 
1752 D4414228 
1756 D44F 
1758 C64E 
175A D553494E47 
175F D64152505452 
1765 D55352 
1768 C5524C 
176B C55252 
176E D35452494E4724 
1775 C94E535452 
177A D04F494E54 
177F D4494D4524 
1784 CD454D 
1787 C94E4B455924 
178D D448454E 
1791 CE4F54 
1794 D3544550 

1798 AB 

1799 AD 
179A AA 
179B AF 
179C DB 
179D C14E44 
17A0 CF52 
17A2 BE 

17 A3 BD 
17A4 BC 



17A5 D3474E 
17A8 C94E54 
17AB C14253 
17AE C65245 
17B1 C94E50 
17B4 D04F53 
17B7 D35152 
17BA D24E44 
17BD CC4F47 



NAME 


A9 




KILL 


AA 




LSET 


AB 




RSET 


AC 




SAVE 


AD 




SYSTEM 


AE 




LPRINT 


AF 




DEF 


BO 




POKE 


Bl 




PRINT 


B2 




CONT 


B3 




LIST 


B4 




LLIST 


B5 




DELETE 


B6 




AUTO 


B7 




CLEAR 


B8 




CLOAD 


B9 




CSAVE 


BA 




NEW 


BB 




TAB( 


BC 




TO 


BD 




FN 


BE 




USING 


BF 




VARPTR 


CO 




USR 


CI 




ERL 


C2 




ERR 


C3 




STRING$ 


C4 




INSTR 


C5 




POINT 


C6 




TIME$ 


C7 




MEM 


C8 




INKEY$ 


C9 




THEN 


CA 




NOT 


CB 




STEP 


CC 




+ 


CD 




- 


CE 




* 


CF 




/ 


DO 




* * 


Dl 




AND 


D2 




OR 


D3 




> 


D4 




= 


D5 




< 


D6 




TOKEN 






SGN 


D7 


EMBEDDED FUNCTIONS 


INT 


D8 


SEE TABLE 16 08H 


ABS 


D9 




FRE 


DA 




INP 


DB 




POS 


DC 




SQR 


DD 




RND 


DE 




LOG 


DF 
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7C0 


C55850 


7C3 


C34F53 


7C6 


D3494E 


7C9 


D4414E 


7CC 


C1544E 


7CF 


D045454B 


7D3 


C35649 


7D6 


C35653 


7D9 


C35644 


7DC 


C54F46 


7DF 


CC4F43 


7E2 


CC4F46 


7E5 


CD4B4924 


7E9 


CD4B5324 


7 ED 


CD4B4424 


7F1 


C3494E54 


7F5 


C3534E47 


7F9 


C344424C 


7FD 


C64958 


800 


CC454E 


803 


D3545224 


807 


D6414C 


8 0A 


C15343 


8 0D 


C3485224 


811 


CC45465424 


816 


D24947485424 


81C 


CD494424 


820 


A7 


821 


80 


822 


AEID 


824 


AllC 


826 


3801 


828 


3501 


81A 


C901 


82C 


7341 


82E 


D301 


830 


B622 


832 


051F 


834 


9A21 


836 


0826 


838 


EF21 


83A 


211F 


83C 


C21E 


83E 


A3 IE 


840 


3920 


842 


911D 


844 


BllE 


846 


DEIE 


848 


071F 


84A 


A91D 


84C 


071F 


84E 


F71D 


850 


F81D 


852 


OOIE 


854 


031E 



EXP 


EO 


COS 


El 


SIN 


E2 


TAN 


E3 


ATN 


E4 


PEEK 


E5 


CVI 


E6 


CVS 


E7 


CVD 


E8 


EOF 


E9 


LOC 


EA 


LOF 


EB 


MKI$ 


EC 


MKS$ 


ED 


MKD$ 


EE 


CINT 


EF 


CSNG 


FO 


CDBL 


Fl 


FIX 


F2 


LEN 


F3 


STR$ 


F4 


VAL 


F5 


ASC 


F6 


CHR$ 


F7 


LEFT$ 


F8 


RIGHT$ 


F9 


MID$ 


FA 


/ 


FB 


8 OH 


END MARKER 


ROUTINE 


ADDRESS TABLE 


IDAE 


END 


ICAl 


FOR 


0138 


RESET 


0135 


SET 


01C9 


CLS 


4173 


CMD 


01D3 


RANDOM 


22B6 


NEXT 


1F05 


DATA 


219A 


INPUT 


2608 


DIM 


21EF 


READ 


1F21 


LET 


1EC2 


GOTO 


IE A3 


RUN 


2039 


IF 


1D91 


RESTORE 


lEBl 


GOSUB 


lEDE 


RETURN 


1F07 


REM 


1DA9 


STOP 


1F07 


ELSE 


1DF7 


TRON 


1DF8 


TROFF 


lEOO 


DEFSTR 


1E03 


DEFINT 
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1856 
1858 
185A 
185C 
185E 
1860 
1862 
1864 
1866 
1868 
186A 
186C 
186E 
1870 
1872 
1874 
1876 
1878 
187A 
187C 
187E 
1880 
1802 
1884 
1886 
1888 
188A 
188C 
188E 
1890 
1892 
1894 
1896 
1898 



061E 
091E 
A341 
602E 
F41F 
AFIF 
FB2A 
6C1F 
7941 
7C41 
7F41 
8241 
8541 
8841 
8B41 
8E41 
9141 
9741 
9A41 
A041 
B202 
6720 
5B41 
B12C 
6F20 
E41D 
2E2B 
292B 
C62B 
0820 
7A1E 
1F2C 
F52B 
491B 



189A 79 
189B 79 
189C 7C 
189D 7C 
189E 7F 
189F 50 
18A0 46 



18A1 
18 A3 
18A5 
18A7 
18A9 
18AB 
18AD 
18AF 
18B1 
18B3 
18B5 
18B7 



DBOA 
0000 
7F0A 
F4 0A 
BlOA 
770C 
700C 
AlOD 
E50D 
780A 
1607 
1307 



1E06 


DEFSNG 


1E09 


DEFDBL 


41 A3 


LINE 


2E60 


EDIT 


1FF4 


ERROR 


IFAF 


RESUME 


2AFB 


OUT 


1F6C 


ON 


4179 


OPEN 


417C 


FIELD 


417F 


GET 


4182 


PUT 


4185 


CLOSE 


4188 


LOAD 


418B 


MERGE 


418E 


NAME 


4191 


KILL 


4197 


LSET 


419A 


RSET 


41A0 


SAVE 


02B2 


SYSTEM 


2067 


LPRINT 


4158 


DEF 


2CB1 


POKE 


206F 


PRINT 


1DE4 


CONT 


2B2E 


LIST 


2B29 


LLIST 


2BC6 


DELETE 


2008 


AUTO 


1E7A 


CLEAR 


2C1F 


CLAD 


2BF5 


CSAVE 


1B49 


NEW 


PRECEDENCE 


TABLE 


79 


+ PRECEDENCE 


79 


TABLE 


7C 


* 


7C 


/ 


7F 


/** 


50 


AND 


46 


OR 


MATHEMATICAL OPERATOR INDEX 


OADB 


CDBL 


0000 


UNUSED 


0A7F 


CINT 


0AF4 


CHECK IF STRING 


OABl 


CSNG 


0C77 


D.P. ADDITION 


0C70 


SUBTRACTION 


ODAl 


MULTIPLICATION 


0DE5 


DIVISION 


0A78 


COMPARE 


0716 


S.P. ADDITION 


0713 


SUBTRACTION 
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18B9 4708 
18BB A208 
18BD OCOA 
18BF D20B 
18C1 C70B 
18C3 F20B 
18C5 9024 
18C7 390A 



18C9 
18CB 
18CD 
18CF 
18D1 
18D3 
18D5 
18D7 
18D9 
18DB 
18DD 
18DF 
18E1 
18E3 
18E5 
18E7 
18E9 
18EB 
18ED 
18EF 
18F1 
18F3 
18F5 



18F7 
18F9 
18FA 
18FB 
18FD 
18FE 
18FF 
1901 
1902 
1904 
1905 
1907 
19 0A 
190C 
190D 
190F 
1910 
1914 
1917 
1919 
191B 



4E46 
534E 
5247 
4F44 
4643 
4F56 
4F4D 
554C 
4253 
4444 
2F30 
4944 
544D 
4F53 
4C53 
5354 
434E 
4E52 
5257 
5545 
4D4F 
4644 
4C33 



D600 

6F 

7C 

DEOO 

67 

78 

DEOO 

47 

3E00 

C9 

4A1E 

40E64D 

DBOO 

C9 

D300 

C9 

00000000 

403000 

4C44 

FEFF 

E943 



RAM INITIALIZATION 



0847 


MULTIPLICATION 


08A2 


DIVISION 


OAOC 


COMPARE 


0BD2 


INTEGER ADDITION 


0BC7 


SUBTRACTION 


0BF2 


MULTIPLICATION 


2490 


DIVISION 


0A3 9 


COMPARE 


ERROR 


CODES 




NF 


1 


NEXT W/0 FOR 


SN 


2 


SYNTAX 


RG 


3 


RETURN W/0 GOSUB 


OD 


4 


OUT OF DATA 


FC 


5 


FUNCTION CALL 


OV 


6 


OVERFLOW 


OM 


7 


OUT OF MEMORY 


UL 


8 


LINE NOT FOUND 


BS 


9 


BAD SUBSCRIPT 


DD 


10 


DOUBLE DIMENSION 


/o 


11 


DIVIDE BY ZERO 


ID 


12 


ILLEGAL DIRECT 


TM 


13 


TYPE MISMATCH 


OS 


14 


OUT OF STRING SPACE 


LS 


15 


STRING OVERFLOW 


ST 


16 


STRING OVER- COMPLEX 


CN 


17 


CAN'T CONTINUE 


NR 


18 


NO RESUME 


RW 


19 


RESUME W/0 ERROR 


UE 


20 


UNPRINTABLE ERROR 


MO 


21 


MISSING OPERAND 


FD 


22 


FILE DATA BAD 


L3 


23 


DISK BASIC ONLY 


FOR 4080 


- 4066 





SUB 

LD 

LD 

SBC 

LD 

LD 

SBC 

LD 

LD 

RET 

1E4A 

4DE640 

IN 

RET 

OUT 

RET 



444C 
FFFE 
43E9 



OOH 
L,A 
A,H 
A, OOH 
H,A 
A,B 
A, OOH 
B,A 
A, OOH 



A, (OOH) 
(OOH) ,A 



(4080) 



PART OF 

DIVISION SUBROUTINE 
COS GET REPLACED 
BY DATA IN RAM 



(408E) 
(4090) 
(4093) 

(4096) 



USRO VECTOR (FC ERROR) 

RANDOM # SEED #2 

INPUT FROM GIVEN PORT 

DONE 

OUTPUT TO GIVEN PORT 

DONE 



(4 06 0) TOP OF MEMORY 

(4 062) CURRENT BASIC LINE # 

(4 064) PROGRAM START 
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191D 204572726F7200 
1924 20696E2000 

1929 52454144590D00 

1930 427265616B00 



MESSAGES 

" ERROR" 
" IN " 
"READY" OD 
"BREAK" 



936 


210400 


LD 


HL,0004H 


939 


39 


ADD 


HL,SP 


93A 


7E 


LD 


A, (HL) 


93B 


23 


INC 


HL 


93C 


FE81 


CP 


81H 


93E 


CO 


RET 


NZ 


93F 


4E 


LD 


C, (HL) 


940 


23 


INC 


HL 


941 


46 


LD 


B, (HL) 


942 


23 


INC 


HL 


943 


E5 


PUSH 


HL 


944 


69 


LD 


L,C 


945 


60 


LD 


H,B 


946 


7A 


LD 


A,D 


947 


B3 


OR 


E 


948 


EB 


EX 


DE,HL 


949 


2802 


JR 


Z, 194DH 


94B 


EB 


EX 


DE,HL 


94C 


DF 


RST 


18H 


94D 


OlOEOO 


LD 


BC, OOOEH 


950 


El 


POP 


HL 


951 


C8 


RET 


Z 


952 


09 


ADD 


HL,BC 


953 


18E5 


JR 


193AH 


955 


CD6C19 


CALL 


196CH 


958 


C5 


PUSH 


BC 


959 


E3 


EX 


(SP) ,HL 


95A 


CI 


POP 


BC 


95B 


DF 


RST 


18H 


95C 


7E 


LD 


A, (HL) 


95D 


02 


LD 


(BC) ,A 


95E 


C8 


RET 


Z 


95F 


OB 


DEC 


BC 


960 


2B 


DEC 


HL 


961 


18F8 


JR 


195BH 


963 


E5 


PUSH 


HL 


964 


2AFD4 


LD 


HL, (40FDH) 


967 


0600 


LD 


B,OOH 


969 


09 


ADD 


HL,BC 


96A 


09 


ADD 


HL,BC 


96B 


3E 






96C 


E5 


PUSH 


HL 


96D 


3EC6 


LD 


A,0C6H 


96F 


95 


SUB 


L 


970 


6F 


LD 


L,A 


971 


3EFF 


LD 


A, OFFH 


973 


9C 


SBC 


A,H 


974 


3804 


JR 


C,197AH 


976 


67 


LD 


H,A 


977 


39 


ADD 


HL,SP 



BACK UP 4 BYTES 

INTO THE STACK 

GET BYTE 

POINT TO NEXT BYTE 

FOR DATA? 

RETURN IF NOT 

GET COUNTER POINTER 

FROM DATA BLOCK 



SAVE POSITION IN STACK 
HL = COUNTER POINTER 

WAS THERE A VARIABLE 

SPECIFIED IN THE NEXT? 

USE FOUND VARIABLE IF NOT 

SKIP IF NO VARIABLE SPECIFIED 

USE GIVEN VARIABLE? 

GIVEN SAME AS FOUND? 

DISPLACEMENT PAST FOR DATA 

RESTORE POSITION IN STACK 

RETURN IF NO GIVEN 

OR GIVEN SAME AS FOUND 

MOVE PAST FOR BLOCK 

LOOP 

CHECK MEMORY SPACE 

DE = START OF DATA BLOCK 

HL = END OF DATA BLOCK 

BC = END OF DESTINATION BLOCK 

DONE YET? 

GET BYTE 

SAVE BYTE 

RETURN IF DONE 

NEXT 

LOCATIONS 

LOOP UNTIL DONE 

SAVE HL 

HL=> START OF FREE MEMORY 

BC = # WORDS REQUESTED 

HL => NEW START 

OF FREE MEMORY 

MASK TO 196DH 

SAVE HL 

HL = 0FFC6H 

- START OF FREE MEMORY 



OM ERROR IF START >FFC6 
COMPARE HL & SP 
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978 


El 


POP 


HL 


RESTORE HL 


979 


D8 


RET 


C 


RETURN IF SP > FREE 


97A 


lEOC 


LD 


E, OCH 


OM ERROR 7 


97C 


1824 


JR 


19A2H 


GO TO ERROR ROUTINE 




2AA24 


CHECK 


FOR NO RESUME 


AND END OF PROGRAM 


97E 


LD 


HL, (40A2H) 


DIRECT 


981 


7C 


LD 


A,H 


COMMAND? 


982 


A5 


AND 


L 




983 


3C 


INC 


A 




984 


2808 


JR 


Z, 198EH 


END EXECUTION IF SO 


986 


3AF240 


LD 


A, (40F2H) 


IN ERROR TRAP? 


989 


B7 


OR 


A 




98A 


1E22 


LD 


E,22H 


POSSIBLE NR ERROR 


98C 


2014 


JR 


NZ,19A2H 


ERROR IF IN TRAP 


98E 


C3C11D 


JP 
ERROR 


IDCIH 
ROUTINE 


END EXECUTION 


991 


2 ADA4 


LD 


HL, (40DAH) 


MAKE DATA LINE 


994 


22A240 


LD 


(40A2H) ,HL 


THE CURRENT LINE. 


997 


1E02 


LD 


E, 02H 


SYNTAX ERROR 


999 


01 






MASK TO 19A2H 


9 9A 


1E14 


LD 


E, 14H 


/O ERROR 


99C 


01 






MASK TO 19A2H 


99D 


lEOO 


LD 


E,OOH 


NEXT W/0 FOR ERROR 


99F 


01 






MASK TO 19A2H 


9A0 


1E24 


LD 


E,24H 


RESUME W/0 ERROR 


9A2 


2AA24 


LD 


HL, (40A2H) 


GET CURRENT LINE 


9A5 


22EA4 


LD 


(40EAH) ,HL 


SET ERL 


9A8 


22EC40 


LD 


(40ECH) ,HL 


SET ERL 


9AB 


01B419 


LD 


BC, 19B4H 


CONTINUATION ADDRESS 


9AE 


2AE840 


LD 


HL, (40E8H) 


GET STACK POINTER 


9B1 


C3 9A1B 


JP 


IB 9 AH 


INITIALIZE & RETURN 


9B4 


CI 


POP 


BC 




9B5 


7B 


LD 


A,E 


A = C = ERROR CODE 


9B6 


4B 


LD 


C,E 




9B7 


32 9A4 


LD 


(409AH) ,A 


SAVE ERR. 


9BA 


2AE64 


LD 


HL, (40E6H) 


GET CURRENT LINE #. 


9BD 


22EE40 


LD 


(40EEH) ,HL 




9C0 


EB 


EX 


DE,HL 




9C1 


2 AEA4 


LD 


HL, (40EAH) 


GET ERL 


9C4 


7C 


LD 


A,H 


DIRECT 


9C5 


A5 


AND 


L 


MODE? 


9C6 


3C 


INC 


A 




9C7 


2807 


JR 


Z,19D0H 


SKIP IF SO 


9C9 


22F540 


LD 


(40F5H) ,HL 


SAVE LAST LINE 


9CC 


EB 


EX 


DE,HL 


& LAST BYTE EXECUTED 


9 CD 


22F740 


LD 


(40F7H) ,HL 




9D0 


2AF040 


LD 


HL, (40F0H) 


GET ERROR VECTOR 


9D3 


7C 


LD 


A,H 


IS IT 0? 


9D4 


B5 


OR 


L 




9D5 


EB 


EX 


DE,HL 


SAVE VECTOR 


9D6 


21F240 


LD 


HL,40F2H 


POINT TO TRAP FLAG 


9D9 


2808 


JR 


Z, 19E3H 


SKIP IF ON ERROR GOTi 


9DB 


A6 


AND 


(HL) 


TEST TRAP FLAG 


9DC 


2005 


JR 


NZ, 19E3H 


SKIP IF ALREADY TRAP 


9DE 


35 


DEC 


(HL) 


FLAG IS IN TRAP 
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19DF 
19E0 
19E3 
19E4 
19E5 
19E6 
19E9 
19EC 
19EF 
19F0 
19F2 
19F5 
19F6 
19F7 
19FA 
19FB 
19FE 
lAOl 
1A02 
1A05 
1A06 
1A0 9 
lAOA 
lAOD 
lAOE 
lAll 
1A12 
1A13 
1A14 
1A17 
1A18 



EB 

C3361D 

AF 

77 

59 

CDF920 

21C918 

CDA641 

57 

3E3F 

CD2A03 

19 

7E 

CD2A03 

D7 

CD2A03 

211D19 

E5 

2 AEA4 

E3 

CDA72 8 

El 

IIFEFF 

DF 

CA7406 

7C 

A5 

3C 

C4A70F 

3E 

CI 



EX 

JP 

XOR 

LD 

LD 

CALL 

LD 

CALL 

LD 

LD 

CALL 

ADD 

LD 

CALL 

RST 

CALL 

LD 

PUSH 

LD 

EX 

CALL 

POP 

LD 

RST 

JP 

LD 

AND 

INC 

CALL 

POP 



DE,HL 
1D36H 
A 

(HL) ,A 
E,C 
20F9H 
HL, 18C9H 
41A6H 
D,A 
A,3FH 
03 2AH 
HL,DE 
A, (HL) 
03 2AH 
lOH 
03 2AH 
HL, 191DH 
HL 

HL, (40EAH) 
(SP) ,HL 
2 8A7H 
HL 

DE, OFFFEH 
18H 

Z, 0674H 
A,H 
L 
A 
NZ, 0FA7H 

BC 



PUT VECTOR IN HL 
ERROR GO TO 
CLEAR TRAP FLAG 

E = ERROR CODE 

PRINT 

HL => ERROR TABLE 

DOS LINK 

DE = ERROR CODE 

II 9 II 

OUTPUT " ? " 

FIND ERROR MESSAGE 

GET FIRST BYTE 

DISPLAY IT 

GET SECOND BYTE 

DISPLAY IT 

POINT TO "ERROR" 

SAVE POINTER 

GET ERROR LINE # 

PUT IN STACK & RETRIEVE POINTER 

PRINT " ERROR"; 

RESTORE ERL 

IS ERL = FFFEH? 

RE -BOOT IF SO 

IS THIS DIRECT MODE? 



PRINT LINE # IF NOT 
MASK TO 1A19H 
CLEAR THE STACK 



1A19 
lAlC 
lAlF 
1A22 
1A2 5 
1A2 8 
1A2B 
1A2E 
1A3 
1A3 3 
1A3 6 
1A3 9 
1A3C 
1A3D 
1A3F 
1A42 
1A43 
1A4 6 
1A4 7 
1A4 8 
1A4B 
1A4D 
1A4F 
1A51 



CD8B03 

CDAC4 1 

CDF801 

CDF920 

212919 

CDA72 8 

3A9A4 

D602 

CC532E 

21FFFF 

22A240 

3AE140 

B7 

2837 

2AE240 

E5 

CDAFOF 

Dl 

D5 

CD2C1B 

3E2A 

3802 

3E20 

CD2A03 



CALL 

CALL 

CALL 

CALL 

LD 

CALL 

LD 

SUB 

CALL 

LD 

LD 

LD 

OR 

JR 

LD 

PUSH 

CALL 

POP 

PUSH 

CALL 

LD 

JR 

LD 

CALL 



038BH 
41ACH 
01F8H 
20F9H 
HL, 1929H 

2 8A7H 

A, (409AH) 
02H 

Z,2E53H 
HL, OFFFEH 
(40A2H) ,HL 
A, (40E1H) 
A 

Z, 1A76H 
HL, (40E2H) 
HL 

OFAFH 
DE 
DE 

1B2CH 
A,2AH 
C, 1A51H 
A,20H 

03 2AH 



READY 

RESET I/O 

LINK TO DOS 

TURN OFF TAPE 

NEW LINE 

PRINT 

"READY" 

SYNTAX 

ERROR? 

EDIT IF SO 

SET 

DIRECT MODE 

AUTO? 

SKIP IF NOT 

GET CURRENT LINE # 

SAVE CURRENT LINE # 

DISPLAY LINE # 

DE = CURRENT LINE # 

SEARCH FOR LINE 
DISPLAY "*" 
IF ALREADY USED 
SPACE IF NOT 
OUTPUT 
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4 


CD6103 


CALL 


0361H 


7 


Dl 


POP 


DE 


8 


3006 


JR 


NC, 1A6 0H 


A 


AF 


XOR 


A 


B 


32E140 


LD 


(40E1H) ,A 


E 


18B9 


JR 


1A19H 





2AE440 


LD 


HL, (40E4H) 


3 


19 


ADD 


HL,DE 


4 


38F4 


JR 


C , 1A5 AH 


6 


D5 


PUSH 


DE 


7 


11F9FF 


LD 


DE, 0FFF9H 


A 


DF 


RST 


18H 


B 


Dl 


POP 


DE 


C 


30EC 


JR 


NC , 1A5 AH 


E 


22E240 


LD 


(40E2H) ,HL 


1 


F6FF 


OR 


OFFH 


3 


C3EB2F 


JP 


2FEBH 


6 


3E3E 


LD 


A,3EH 


8 


CD2A03 


CALL 


03 2AH 


B 


CD6103 


CALL 


0361H 


E 


DA3 31A 


JP 


C, 1A3 3H 


1 


D7 


RST 


lOH 


2 


3C 


INC 


A 


3 


3D 


DEC 


A 


4 


CA3 31A 


JP 


Z,1A3 3H 


7 


F5 


PUSH 


AF 


8 


CD5A1E 


CALL 


1E5AH 


B 


2B 


DEC 


HL 


C 


7E 


LD 


A, (HL) 


D 


FE2 


CP 


20H 


F 


28FA 


JR 


Z, 1A8BH 


1 


23 


INC 


HL 


2 


7E 


LD 


A, (HL) 


3 


FE2 


CP 


20H 


5 


CCC909 


CALL 


Z,09C9H 


8 


D5 


PUSH 


DE 


9 


CDCOIB 


CALL 


IBCOH 


C 


Dl 


POP 


DE 


D 


Fl 


POP 


AF 


E 


22E640 


LD 


(40E6H) ,HL 


,1 


CDB241 


CALL 


41B2H 


A 


D2 5A1D 


JP 


NC,1D5AH 


n 


D5 


PUSH 


DE 


.8 


C5 


PUSH 


BC 


.9 


AF 


XOR 


A 


A 


32DD40 


LD 


(40DDH) ,A 


,D 


D7 


RST 


lOH 


,E 


B7 


OR 


A 


,F 


F5 


PUSH 


AF 


.0 


EB 


EX 


DE,HL 


.1 


22EC40 


LD 


(40ECH) ,HL 


4 


EB 


EX 


DE,HL 


.5 


CD2C1B 


CALL 


1B2CH 


.8 


C5 


PUSH 


BC 


■ 9 


DCE42B 


CALL 


C,2BE4H 


■ C 


Dl 


POP 


DE 


.D 


Fl 


POP 


AF 



INS LINE 

RESTORE CURRENT LINE # 

SKIP IF NO <BREAK> 

TURN OFF 

AUTO 

GO TO READY 

GET AUTO INCREMENT 

COMPUTE NEXT LINE # 

STOP IF TOO LARGE 

SAVE PREVIOUS LINE # 

IS NEW LINE # 

GREATER OR EQUAL TO 6 5529? 

RARE PREVIOUS LINE # 

STOP IF SO 

SAVE NEW CURRENT LINE # 

SET FLAG 

SAVE LINE & RETURN 

DISPLAY ">" 

INPUT LINE 

RE-START IF <BREAK> . 
GET CHARACTER 
SET STATUS 

RE -START IF NULL 

SAVE CHARACTER 

PROCESS LINE #, IF ANY 

BACKUP 

OVERTRAILING 

BLANKS AFTER LINE # 

IF ANY 

POINT TO FIRST CHARACTER 

IGNORE 

EXACTLY 

ONE BLANK 

SAVE LINE # 

ENCODE LINE 

RESTORE LINE # 

RESTORE STATUS OF 1ST CHARACTER 

SAVE LINE BUFFER ADDRESS 

LINK TO DOS 

EXECUTE IF DIRECT STATEMENT 

SAVE LINE # 

SAVE LINE LENGTH 

ZERO 

FLAG 

SCAN LINE FOR FIRST CHARACTER. 

CHECK CHARACTER 

SAVE STATUS 

ERL = CURRENT LINE 



SEARCH FOR LINE 
SAVE POSITION 
DELETE LINE IF FOUND 
GET 
STATUS 
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BE 


D5 


PUSH 


DE 


BF 


2827 


JR 


Z,1AE8H 


CI 


Dl 


POP 


DE 


C2 


2AF940 


LD 


HL, (40F9H) 


C5 


E3 


EX 


(SP) ,HL 


C6 


CI 


POP 


BC 


CI 


09 


ADD 


HL,BC 


C8 


E5 


PUSH 


HL 


C9 


CD5519 


CALL 


1955H 


CC 


El 


POP 


HL 


CD 


22F940 


LD 


(40F9H) ,HL 


DO 


EB 


EX 


DE,HL 


Dl 


74 


LD 


(HL) ,H 


D2 


Dl 


POP 


DE 


D3 


E5 


PUSH 


HL 


D4 


23 


INC 


HL 


D5 


23 


INC 


HL 


D6 


73 


LD 


(HL) ,E 


.D7 


23 


INC 


HL 


D8 


72 


LD 


(HL) ,D 


D9 


23 


INC 


HL 


DA 


EB 


EX 


DE,HL 


DB 


2AA74 


LD 


HL, (40A7H) 


DE 


EB 


EX 


DE,HL 


DF 


IB 


DEC 


DE 


EO 


IB 


DEC 


DE 


El 


lA 


LD 


A, (DE) 


.E2 


77 


LD 


(HL) ,A 


.E3 


23 


INC 


HL 


E4 


13 


INC 


DE 


E5 


B7 


OR 


A 


E6 


20F9 


JR 


NZ,1AE1H 


E8 


Dl 


POP 


DE 


E9 


CDFCIA 


CALL 


lAFCH 


EC 


CDB541 


CALL 


41B5H 


.EF 


CD5D1B 


CALL 


1B5DH 


.F2 


CDB841 


CALL 


41B8H 


.F5 


C3331A 


JP 


1A33H 


.F8 


2AA44 


LD 


HL, (40A4H) 


FB 


EB 


EX 


DE,HL 


FC 


62 


LD 


H,D 


.FD 


6B 


LD 


L,E 


.FE 


7E 


LD 


A, (HL) 


.FF 


23 


INC 


HL 


00 


B6 


OR 


(HL) 


01 


C8 


RET 


Z 


02 


23 


INC 


HL 


03 


23 


INC 


HL 


04 


23 


INC 


HL 


05 


AF 


XOR 


A 


06 


BE 


CP 


(HL) 


07 


23 


INC 


HL 


08 


20FC 


JR 


NZ, 1B06H 


OA 


EB 


EX 


DE,HL 


OB 


73 


LD 


(HL) ,E 


OC 


23 


INC 


HL 


OD 


72 


LD 


(HL) ,D 



OF FIRST CHARACTER. 

SKIP IF NULL 

DE = POSITION OF NEW LINE 

BC = END OF PROGRAM 

HL = LENGTH OF NEW LINE 

HL = NEW END OF PROGRAM 
SAVE NEW END OF PROGRAM 
MOVE PROGRAM APART 
RESTORE NEW END OF PROGRAM 
SAVE NEW END OF PROGRAM 
HL => NEW LINE 
SAVE MSB OF LINE POINTER 
DE = LINE NUMBER 
SAVE START OF LINE 
POINT TO STORAGE 
FOR LINE # 
SAVE LINE # 



DE => INPUT BUFFER 



MOVE DATA UNTIL 
END OF LINE 



RESTORE START OF LINE 

UPDATE LINE POINTERS 

LINK TO DOS 

FIX OTHER POINTERS 

LINK TO DOS 

LOOP FOR MORE 

DE = START OF PROGRAM 

HL = POSITION TO 
START SCAN 
FORWARD POINTER 
ZERO? 

RETURN IF SO 
MOVE PAST LINE # 
TO TEXT 

CLEAR STATUS 
SCAN PAST TEXT 
IN LINE 

STORE NEW FORWARD 

POINTER 

DE = START OF NEW LINE 
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OE 


18EC 


JR 


lAFCH 


LOOP OVER REST OF PROGRAM 


10 


110000 


LD 


DE,OOOOH 


DEFAULT IT START LINE #0 


13 


D5 


PUSH 


DE 


SAVE DEFAULT START 


14 


2809 


JR 


Z, IBIFH 


SKIP IF NO LINE #'S GIVEN 


16 


Dl 


POP 


DE 


CLEAR STACK 


17 


CD4F1E 


CALL 


1E4FH 


GET FIRST LINE # 


lA 


D5 


PUSH 


DE 


SAVE START LINE # 


IB 


280B 


JR 


Z, 1B28H 


SKIP IF NOTHING ELSE GIVEN 


ID 


CF 


RST 


08H 


SYNTAX ERROR IF 


IE 


CE 


M _ M 




NEXT CHARACTER. ISN'T "-". 


IF 


11 


LD 


BC, OFFFAH 


DEFAULT ENDING LINE # 


22 


C44F1E 


CALL 


NZ,1E4FH 


GET SECOND LINE # 


25 


C29719 


JP 


NZ, 1997H 


SYNTAX ERROR IF MORE JUNK 


28 


EB 


EX 


DE,HL 


DE = START LINE 


29 


Dl 


POP 


DE 


HL = END LINE 


2A 


E3 


EX 


(SP) ,HL 


SAVE ENDING LINE 


2B 


E5 


PUSH 


HL 


& RETURN ADDRESS 


2C 


2AA44 


LD 


HL, (40A4H) 


GET START OF PROGRAM 


2F 


44 


LD 


B,H 


SAVE POSITION IN BC 


30 


4D 


LD 


C,L 




31 


7E 


LD 


A, (HL) 


IS FORWARD POINTER 


32 


23 


INC 


HL 


NULL ? (END OF 


33 


B6 


OR 


(HL) 


PROGRAM?) 


34 


2B 


DEC 


HL 




35 


C8 


RET 


Z 


RETURN IF SO, Z , NC 


36 


23 


INC 


HL 


MOVE TO 


37 


23 


INC 


HL 


LINE # 


38 


7E 


LD 


A, (HL) 


GET 


39 


23 


INC 


HL 


LINE 


3A 


66 


LD 


H, (HL) 


# 


3B 


6F 


LD 


L,A 




3C 


DF 


RST 


18H 


LINE # CORRECT? 


3D 


60 


LD 


H,B 


RESTORE POSITION 


3E 


69 


LD 


L,C 


FROM BC 


3F 


7E 


LD 


A, (HL) 


GET 


40 


23 


INC 


HL 


FORWARD 


41 


66 


LD 


H, (HL) 


POINTER 


42 


6F 


LD 


L,A 




43 


3F 


CCF 




EXIT Z,C 


44 


C8 


RET 


Z 


IF LINE FOUND 


45 


3F 


CCF 




EXIT NZ,NC 


46 


DO 


RET 


NC 


IF HIGHER LINE FOUND 


47 


18E6 


JR 


1B2FH 


CONTINUE SEARCHING 


49 


CO 


RET 


NZ 


SYNTAX ERROR IF MORE IN COMMAND 


4A 


CDC901 


CALL 


01C9H 


CLEAR SCREEN 


4D 


2AA44 


LD 


HL, (40A4H) 


POINT TO START OF PROGRAM 


50 


CDF81D 


CALL 


1DF8H 


TROFF 


53 


32E140 


LD 


(40E1H) ,A 


TURN AUTO OFF 


56 


77 


LD 


(HL) ,A 


MARK 


57 


23 


INC 


HL 


END 


58 


77 


LD 


(HL) ,A 


OF 


59 


23 


INC 


HL 


PROGRAM 


5A 


22F940 


LD 


(40F9H) ,HL 


SAVE START OF VARIABLE TABLE 


5D 


CD6B04 


CALL 


046BH 


UNPROTECT SCREEN 


60 


2B 


DEC 


HL 


SET EXECUTION 


61 


22DF40 


LD 


(40DFH) ,HL 


UNPROTECT SCREEN 


64 


061A 


LD 


B,1AH 


SET 
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1B66 
1B69 
1B6B 
1B6C 
1B6E 
1B6F 
1B72 
1B73 
1B74 
1B77 
1B7A 
1B7D 
1B80 
1B83 
1B86 
1B89 
1B8C 
1B8F 
1B90 
1B93 
1B94 
1B95 
1B98 
1B99 
1B9A 
1B9B 
1B9E 
IBAl 
1BA4 
1BA7 
1BA8 
1BA9 
IBAA 
IBAD 
IBAE 
IBAF 
1BB2 



210141 

3604 

23 

lOFB 

AF 

32F240 

6F 

67 

22F040 

22F740 

2AB14 

22D640 

CD911D 

2AF940 

22FB40 

22FD40 

CDBB41 

CI 

2AA040 

2B 

2B 

22E840 

23 

23 

F9 

21B540 

22B340 

CD8B03 

CD6921 

AF 

67 

6F 

32DC40 

E5 

C5 

2ADF4 

C9 



LD 

LD 

INC 

DJNZ 

XOR 

LD 

LD 

LD 

LD 

LD 

LD 

LD 

CALL 

LD 

LD 

LD 

CALL 

POP 

LD 

DEC 

DEC 

LD 

INC 

INC 

LD 

LD 

LD 

CALL 

CALL 

XOR 

LD 

LD 

LD 

PUSH 

PUSH 

LD 

RET 



,A 



HL 
HL 



HL,4101H 

(HL) , 04H 
HL 

1B69H 
A 

(40F2H) 
L,A 
H,A 

(40F0H) 

(40F7H) 
HL, (40B1H) 

(40D6H) ,HL 

1D91H 

HL, (40F9H) 

(40FBH) ,HL 

(40FDH) ,HL 
41BBH 
BC 

HL, (40A0H) 
HL 
HL 

(40E8H) ,HL 
HL 
HL 

SP,HL 
HL,40B5H 

(40B3H) ,HL 

038BH 

2169H 

A 

H,A 

L,A 

(40DCH) ,A 
HL 
BC 
HL, (40DFH) 



VARIABLE 
TYPES 
TO 
S.P. 

CLEAR ERROR TRAP FLAG 



ON ERROR GO TO 

LAST BYTE EXECUTED = 

GET MEMORY SIZE 

SET NEXT AVAILABLE STRING 

RESTORE 

GET END OF PROGRAM 

SET ARRAY POINTER 

SET FREE SPACE POINTER 

LINK TO DOS 

GET RETURN ADDRESS 

GET TOP OF FREE MEMORY 

SET POINTER 

TO STACK 

AT START OF STATEMENT 

SET NEW 

STACK 

POINTER 

CLEAR 

WORKSPACE 

RESET I/O 

RESET I/O 

CLEAR A & HL 



NO ACTIVE FORS 
MARK TOP OF STACK 
SAVE RETURN ADDRESS 
GET EXECUTION ADDRESS 
DONE 



PRINT "? 



& INPUT 



1BB3 3E3F 
1BB5 CD2A03 
1BB8 3E20 
IBBA CD2A03 
IBBD C36103 



LD 

CALL 

LD 

CALL 

JP 



A,3FH 
03 2AH 
A,20H 
03 2AH 
0361H 



DISPLAY 

DISPLAY 

INPUT TEXT AND RETURN 
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ENCODE PROGRAM LINE 



IBCO 
IBCl 
1BC4 
1BC5 
1BC6 
1BC9 
IBCA 
IBCB 
IBCC 
IBCD 
IBCF 
1BD2 
1BD3 
1BD5 
1BD8 
1BD9 
IBDC 
IBDF 
IBEO 
IBEl 
1BE4 
1BE6 
1BE8 
IBEB 
IBEC 
IBEE 
IBFO 
1BF2 
1BF5 
1BF6 
1BF9 
IBFA 
IBFD 
IBFE 
ICOO 
ICOl 
1C03 
1C05 
1C07 
1C09 
ICOB 
ICOC 
ICOD 
ICOE 
ICOF 
ICIO 
1C13 
1C14 
1C15 
1C17 
1C18 
1C19 
ICIB 
ICIC 
ICID 
ICIE 



AF 

32B040 

4F 

EB 

2AA740 

2B 

2B 

EB 

7E 

FE2 

CA5B1C 

47 

FE22 

CA771C 

B7 

CA7D1C 

3AB04 

B7 

7E 

C25B1C 

FE3F 

3EB2 

CA5B1C 

7E 

FE30 

3805 

FE3C 

DA5B1C 

D5 

114F16 

C5 

013D1C 

C5 

067F 

7E 

FE61 

3807 

FE7B 

3003 

E65F 

77 

4E 

EB 

23 

B6 

F20E1C 

04 

7E 

E67F 

C8 

B9 

20F3 

EB 

E5 

13 

lA 



XOR 

LD 

LD 

EX 

LD 

DEC 

DEC 

EX 

LD 

CP 

JP 

LD 

CP 

JP 

OR 

JP 

LD 

OR 

LD 

JP 

CP 

LD 

JP 

LD 

CP 

JR 

CP 

JP 

PUSH 

LD 

PUSH 

LD 

PUSH 

LD 

LD 

CP 

JR 

CP 

JR 

AND 

LD 

LD 

EX 

INC 

OR 

JP 

INC 

LD 

AND 

RET 

CP 

JR 

EX 

PUSH 

INC 

LD 



A 

(40B0H) ,A 
C,A 
DE,HL 
HL, (40A7H) 
HL 
HL 

DE,HL 
A, (HL) 
20H 

Z, 1C5BH 
B,A 
22H 

Z, 1C77H 
A 

Z, 1C7DH 
A, (40B0H) 
A 

A, (HL) 
NZ, 1C5BH 
3FH 

A, 0B2H 
Z, 1C5BH 

A, (HL) 
30H 

C, 1BF5H 

3CH 

C, 1C5BH 

DE 

DE, 164FH 

BC 

BC, 1C3DH 

BC 

B, 7FH 
A, (HL) 
61H 

CICOCH 
7BH 

NC, ICOCH 
5FH 
(HL) ,A 

C, (HL) 
DE,HL 
HL 

(HL) 

P, ICOEH 

B 

A, (HL) 

7FH 

Z 

C 

NZ, ICOEH 

DE,HL 

HL 

DE 

A, (DE) 



CLEAR 

DATA FLAG & 

DESTINATION BUFFER SIZE 
HL = SOURCE BUFFER 
DE => DESTINATION BUFFER 
(2 BYTES BEFORE 
SOURCE BYTES) 

GET SOURCE CHARACTER. 

SPACE? 

JUMP IF SO 

STORE POSSIBLE DELIMITER 

DOUBLE QUOTES? 

JUMP IF SO? 

END OF LINE 

FINISH UP IF SO 

DATA STATEMENT? 

GET CHARACTER. 

JUMP IF SO 

QUESTION MARK? (PRINT?) 

TOKEN 82 IF SO 

AND JUMP IF SO 

GET CHARACTER 

IS CHARACTER PART 

OF A NUMBER? 

SKIP OUT IF SO 

SAVE DE 

DE = RESERVED WORD TABLE 

SAVE BC 

RETURN TO 1C3DH 

INITIAL TOKEN VALUE 

GET CHARACTER. 

FOLD 

INTO 

UPPER 

CASE 

ONLY 

GET CHARACTER 

HL => RESERVED WORD TABLE 

SCAN FOR 

BYTE WITH 

BIT 7 SET 

INCREASE TOKEN VALUE 

GET CHARACTER FROM WORD 

MASK OFF BIT 7 

RETURN IF END OF TABLE 

GIVEN CHARACTER MATCH WORD 

LOOP TO NEXT WORD IF NOT 

RESTORE POINTERS AS BEFORE 

SAVE POSITION IN TEXT 

NEXT CHARACTER IN WORD 

GET CHARACTER IN WORD 
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CIF 


B7 


OR 


A 


C2 


FA391C 


JP 


M,1C39H 


C23 


4F 


LD 


C,A 


C24 


78 


LD 


A,B 


C25 


FE8D 


CP 


SDH 


C27 


2002 


JR 


NZ, 1C2BH 


C29 


D7 


RST 


lOH 


C2A 


2B 


DEC 


HL 


C2B 


23 


INC 


HL 


C2C 


7E 


LD 


A, (HL) 


C2D 


FE61 


CP 


61H 


C2F 


3802 


JR 


C,1C33H 


C31 


E65F 


AND 


5FH 


C33 


B9 


CP 


C 


C34 


28E7 


JR 


Z,1C1DH 


C36 


El 


POP 


HL 


C37 


18D3 


JR 


ICOCH 


C39 


48 


LD 


C,B 


C3A 


Fl 


POP 


AF 


C3B 


EB 


EX 


DE,HL 


C3C 


C9 


RET 




C3D 


EB 


EX 


DE,HL 


C3E 


79 


LD 


A,C 


C3F 


CI 


POP 


BC 


C4 


Dl 


POP 


DE 


C41 


EB 


EX 


DE,HL 


C42 


FE95 


CP 


95H 


C44 


363A 


LD 


(HL) ,3AH 


C46 


2002 


JR 


NZ, 1C4AH 


C48 


OC 


INC 


C 


C4 9 


23 


INC 


HL 


C4A 


FEFB 


CP 


OFBH 


C4C 


200C 


JR 


NZ, 1C5AH 


C4E 


363A 


LD 


(HL) ,3AH 


C50 


23 


INC 


HL 


C51 


0693 


LD 


B,93H 


C53 


70 


LD 


(HL) ,B 


C54 


23 


INC 


HL 


C55 


EB 


EX 


DE,HL 


C56 


OC 


INC 


C 


C57 


OC 


INC 


C 


CSS 


181D 


JR 


1C77H 


C5A 


EB 


EX 


DE,HL 


C5B 


23 


INC 


HL 


CSC 


12 


LD 


(DE) ,A 


C5D 


13 


INC 


DE 


C5E 


OC 


INC 


C 


C5F 


D63A 


SUB 


3 AH 


C61 


2804 


JR 


Z, 1C67H 


C63 


FE4E 


CP 


4 EH 


C65 


2003 


JR 


NZ, 1C6AH 


C67 


32B040 


LD 


(40B0H) ,A 


C6A 


D659 


SUB 


59H 


C6C 


C2CC1B 


JP 


NZ, IBCCH 


C6F 


47 


LD 


B,A 


C70 


7E 


LD 


A, (HL) 


C71 


B7 


OR 


A 



TEST IT 

SKIP OUT IF NEW WORD 

SAVE CHARACTER FROM WORD 

GET TOKEN VALUE 

GO TO? 

SKIP IF NOT 

PASS OVER 

EMBEDDED SPACES 

NEXT CHARACTER IN TEXT 

GET CHARACTER 

FOLD 

TO 

UPPER- CASE 

SAME AS CHARACTER IN WORD? 

LOOP IF SO 

RESTORE POSITION TEXT 

TRY AGAIN 

PUT TOKEN IN C 

CLEAR STACK 

HL => DESTINATION 

CONTINUE AT 1C3D. 

HL => SOURCE 

GET TOKEN 

RESTORE BC 

RESTORE DESTINATION 

HL => DESTINATION 

ELSE? 

INSERT A COLON IF SO 

SKIP IF NOT 

DESTINATION SIZE UP 

DESTINATION FORWARD 

REM ABBREVIATOR? 

SKIP IF NOT 

INSERT A COLON 

MOVE DESTINATION FORWARD 

STORE REM TOKEN 

MOVE DESTINATION FORWARD 

HL => SOURCE 

INCREASE DESTINATION 

SIZE BY 2 

CONTINUE 

HL => SOURCE 

NEXT SOURCE BYTE 

STORE TOKEN OR CHARACTER 

NEXT DESTINATION BYTE 

INCREASE DESTINATION SIZE 

WAS CHARACTER A COLON? 

SKIP IF SO 

DATA TOKEN? 

SKIP IF NOT 

FLAG AS DATA 

REM? 

LOOP IF NOT 

B = 

GET SOURCE CHARACTER. 

NULL? (END OF LINE?) 
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1C72 
1C74 
1C75 
1C77 
1C78 
1C79 
1C7A 
1C7B 
1C7D 
1C80 
1C81 
1C82 
1C83 
1C84 
1C87 
1C88 
1C89 
1C8A 
1C8B 
1C8C 
1C8D 
1C8E 
1C8F 



2809 

B8 

28E4 

23 

12 

OC 

13 

18F3 

210500 

44 

09 

44 

4D 

2AA740 

2B 

2B 

2B 

12 

13 

12 

13 

12 

C9 



JR 

CP 

JR 

INC 

LD 

INC 

INC 

JR 

LD 

LD 

ADD 

LD 

LD 

LD 

DEC 

DEC 

DEC 

LD 

INC 

LD 

INC 

LD 

RET 



Z, 1C7DH 

B 

Z, 1C5BH 

HL 

(DE) ,A 
C 

DE 

1C70H 
HL, 0005H 
B,H 
HL,BC 
B,H 
C,L 

HL, (40A7H) 
HL 
HL 
HL 

(DE) 
DE 

(DE) 
DE 

(DE) 



A 



A 



A 



SKIP OUT IF SO. 

DELIMITER FOUND? 

REJOIN MAIN LOOP IF SO 

NEXT SOURCE BYTE. 

SAVE BYTE IN DESTINATION 

INCREASE DESTINATION SIZE 

NEXT DESTINATION BYTE 

LOOP UNTIL DONE 

HL = 5 

BC = DESTINATION BUFFER SIZE 

HL = TOTAL BUFFER SIZE 

BC = TOTAL BUFFER SIZE 

GET OLD START OF BUFFER 
BACK UP 3 BYTES 



ZERO 3 
BYTES AFTER 
DESTINATION 
BUFFER 

DONE 



(CP HL,DE (RST 18H) 



1C90 7C 
1C91 92 
1C92 CO 
1C93 7D 
1C94 93 
1C95 C9 



LD 

SUB 

RET 

LD 

SUB 

RET 



A,H 

D 

NZ 

A,L 

E 



COMPARE MSBS 

RETURN IF NOT EQUAL 
COMPARE LSB 

RETURN WITH STATUS 



RST 08 ROUTINE 



1C96 7E 
1C97 E3 
1C98 BE 
1C99 23 
1C9A E3 
1C9B CA781D 
1C9E C39719 



LD 
EX 

CP 

INC 

EX 

JP 

JP 



A, (HL) 
(SP) ,HL 
(HL) 

HL 
(SP) ,HL 

Z, 1D78H 

1997H 



COMPARE (HL) 
AND (SP) 

RETURN TO FOLLOWING BYTE 
FIX STACK, RESTORE HL 
RST lOH & RETURN IF MATCH 
SN ERROR 2 



ICAl 
1CA3 
1CA6 
1CA9 
ICAA 
ICAD 
ICAE 
ICBO 
ICBl 
1CB2 
1CB5 
1CB6 
1CB8 
ICBB 
ICBC 



3E64 

32DC40 

CD211F 

E3 

CD3619 

Dl 

2005 

09 

F9 

22E840 

EB 

0E08 

CD6319 

E5 

CD051F 



FOR 

LD 

LD 

CALL 

EX 

CALL 

POP 

JR 

ADD 

LD 

LD 

EX 

LD 

CALL 

PUSH 

CALL 



A, 64H 
(40DCH) 
1F21H 
(SP) ,HL 
1936H 
DE 

NZ, 1CB5H 
HL,BC 
SP,HL 
(40E8H) 
DE,HL 
C,08H 
1963H 
HL 
1F05H 



A 



HL 



FLAG ACTIVE FOR 

EVALUATE LOWER LIMIT EXPRESSION 

SAVE POSITION 

SEARCH FOR MATCHING COUNTER 

RESTORE POSITION TO DE 

SKIP OF COUNTER NOT FOUND 

POSITION 

STACK POINTER 

SAVE STACK POSITION 

HL => TEXT POSITION 

REQUEST 8 BYTES 

CHECK IF ENOUGH SPACE 

SAVE POSITION 

GET CURRENT LINE 
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CBF 


E3 


EX 


(SP) ,HL 


CCO 


E5 


PUSH 


HL 


CCl 


2AA24 


LD 


HL, (40A2H) 


CC4 


E3 


EX 


(SP) ,HL 


CCS 


CF 


RST 


08H 


CC6 


BD 






CC7 


E7 


RST 


20H 


CCS 


CAF6 0A 


JP 


Z, 0AF6H 


CCB 


D2F60A 


JP 


NC, 0AF6H 


CCE 


F5 


PUSH 


AF 


CCF 


CD3723 


CALL 


2337H 


CD2 


Fl 


POP 


AF 


CD3 


E5 


PUSH 


HL 


CD4 


F2EC1C 


JP 


P, ICECH 


CD 7 


CD7F0A 


CALL 


0A7FH 


CDA 


E3 


EX 


(SP) ,HL 


CDB 


110100 


LD 


DE,0001H 


CDE 


7E 


LD 


A, (HL) 


CDF 


FECC 


CP 


OCCH 


CEl 


CC012B 


CALL 


Z,2B01H 


CE4 


D5 


PUSH 


DE 


CE5 


E5 


PUSH 


HL 


CE6 


EB 


EX 


DE,HL 


CE7 


CD9E09 


CALL 


099EH 


CEA 


1822 


JR 


IDOEH 


CEC 


CDBIOA 


CALL 


OABIH 


CEF 


CDBF09 


CALL 


09BFH 


CF2 


El 


POP 


HL 


CF3 


C5 


PUSH 


BC 


CF4 


D5 


PUSH 


DE 


CF5 


010081 


LD 


BC, 8100H 


CF8 


51 


LD 


D,C 


CF9 


5A 


LD 


E,D 


CFA 


7E 


LD 


A, (HL) 


CFB 


FECC 


CP 


OCCH 


CFD 


3E01 


LD 


A, OIH 


CFF 


200E 


JR 


NZ,1D0FH 


DOl 


CD3823 


CALL 


2338H 


D04 


E5 


PUSH 


HL 


DOS 


CDBIOA 


CALL 


OABIH 


DOB 


CDBF09 


CALL 


09BFH 


DOB 


CD5509 


CALL 


0955H 


DOE 


El 


POP 


HL 


DOF 


C5 


PUSH 


BC 


DIO 


D5 


PUSH 


DE 


Dll 


4F 


LD 


C,A 


D12 


E7 


RST 


20H 


D13 


47 


LD 


B,A 


D14 


C5 


PUSH 


BC 


D15 


E5 


PUSH 


HL 


D16 


2ADF4 


LD 


HL, (40DFH) 


D19 


E3 


EX 


(SP) ,HL 


DIA 


0681 


LD 


B, 81H 


Die 


C5 


PUSH 


BC 


DID 


33 


INC 


SP 



SAVE LINE & RESTORE POSITION 



SYNTAX ERROR IF 

NEXT CHARACTER NOT "TO" TOKEN 

CHECK TYPE OF COUNTER 

TM ERROR IF STRING 

TM ERROR IF D.P. 

SAVE TYPE 

EVALUATE UPPER LIMIT 

RESTORE TYPE 

SAVE POSITION 

JUMP IF S.P. 

MAKE UPPER LIMIT INTEGER 

SAVE LIMIT & GET POSITION 

DEFAULT STEP = 1 

GET NEXT TOKEN 

STEP? 

GET STEP IF SO 

SAVE STEP 

SAVE POSITION 

CHECK SIGN 

OF STEP 

CONTINUE 

CONVERT UPPER LIMIT TO 

PUT IT IN BCDE 

RESTORE POSITION 

SAVE UPPER LIMIT 



DEFAULT STEP 1 . 



GET NEXT TOKEN 

STEP? 

DEFAULT SIGN = +1 

SKIP IF NO STEP 

EVALUATE STEP EXPRESSION 

SAVE POSITION 

CONVERT STEP TO S.P. 

PUT IT IN BCDE 

GET SIGN OF STEP 

RESTORE POSITION 

SAVE STEP 

VALUE 

SAVE SIGN IN C 

CHECK TYPE 

SAVE TYPE IN B 

SAVE TYPE & SIGN OF STEP 

SAVE POSITION 

GET COUNTER POINTER 

SAVE POINTER & GET POSITION 

FOR FLAG 

SAVE FLAG 

TRIM EXTRA BYTE 
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MAIN PROGRAM EXECUTOR 



E 


CD5803 


CALL 


0358H ( 


1 


B7 


OR 


A 1 


2 


C4A01D 


CALL 


NZ,1DA0H ] 


5 


22E640 


LD 


(40E6H),HL : 


8 


ED73E840 


LD 


(40E8H) ,SP : 


C 


7E 


LD 


A, (HL) ( 


D 


FE3A 


CP 


3AH ( 


F 


2829 


JR 


Z,1D5AH : 


1 


B7 


OR 


A : 


2 


C29719 


JP 


NZ,1997H : 


5 


23 


INC 


HL : 


6 


7E 


LD 


A, (HL) ( 


7 


23 


INC 


HL 


8 


B6 


OR 


(HL) 


9 


CA7E19 


JP 


Z,197EH 


C 


23 


INC 


HL ( 


D 


5E 


LD 


E, (HL) : 


E 


23 


INC 


HL 1 


F 


56 


LD 


D, (HL) 





EB 


EX 


DE,HL ] 


1 


22A240 


LD 


(40A2H),HL : 


4 


3A1B41 


LD 


A, (411BH) 


7 


B7 


OR 


A ( 


8 


280F 


JR 


Z,1D59H : 


A 


D5 


PUSH 


DE : 


B 


3E3C 


LD 


A,3CH ] 


D 


CD2A03 


CALL 


03 2AH 





CDAFOF 


CALL 


OFAFH ] 


3 


3E3E 


LD 


A,3EH ] 


5 


CD2A03 


CALL 


03 2AH 


8 


Dl 


POP 


DE 1 


9 


EB 


EX 


DE,HL ] 


A 


D7 


RST 


lOH ( 


B 


IIIEID 


LD 


DE,1D1EH 1 


E 


D5 


PUSH 


DE : 


F 


C8 


RET 


Z 1 





D680 


SUB 


80H ; 


2 


DA211F 


JP 


C,1F21H 


5 


FE3C 


CP 


3CH 


7 


D2E72A 


JP 


NC,2AE7H 


A 


07 


RLCA 




B 


4F 


LD 


C,A 


C 


0600 


LD 


B,OOH 


E 


EB 


EX 


DE,HL : 


F 


212218 


LD 


HL,1822H ] 


2 


09 


ADD 


HL,BC ; 


3 


4E 


LD 


C, (HL) ( 


4 


23 


INC 


HL ; 


5 


46 


LD 


B, (HL) ( 


6 


C5 


PUSH 


BC : 


7 


EB 


EX 


DE,HL 1 






RST lOH ROUTINE 


8 


23 


INC 


HL I 


9 


7E 


LD 


A, (HL) ( 



CHECK KEYBOARD 

ANY KEY HIT? 

HANDLE SHIFT @ OR <BREAK> 

SAVE TEXT POSITION 

SAVE STACK POSITION 

GET TOKEN 

COLON? 

EXECUTE STATEMENT IF SO 

END OF LINE? 

SYNTAX ERROR IF NOT 

END 

OF 

PROGRAM? 

END EXECUTION IF SO 

GET 

LINE 

NUMBER 

INTO 

HL 

SAVE CURRENT LINE # 

TRACE 

ON? 

SKIP IF NOT 

SAVE POSITION 

DISPLAY 

<" 
DISPLAY LINE # 
DISPLAY 

>" 
RESTORE POSITION 
HL => POSITION IN TEXT 
GET NEXT CHARACTER 
RETURN TO 

EXECUTOR WHEN DONE 
NEW LINE IF END-OF-LINE 
ADJUST VALUE OF TOKEN 
EVALUATE IF AN EXPRESSION 
TOKEN IN STATEMENT TABLE? 
JUMP IF NOT 
BC 

TOKEN *2 

SAVE POSITION 

HL = FUNCTION 

ADDRESS 

GET 

ADDRESS 

OF ROUTINE 

SAVE AS RETURN ADDRESS 

RESTORE POSITION 



MOVE TO NEXT CHARACTER 
GET CHARACTER 
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7A 


FE3A 


CP 


3 AH 




NUMERIC? 


7C 


DO 


RET 


NC 




RETURN IF NOT 


7D 


FE2 


CP 


20H 




SPACE? 


7F 


CA781D 


JP 


Z, 1D78H 




SKIP OVER SPACES 


82 


FEOB 


CP 


OBH 




IGNORE 


84 


3005 


JR 


NC, 1D8BH 


LINE FEEDS 


86 


FE09 


CP 


09H 




AND TABS 


88 


D2781D 


JP 


NC, 1D78H 


SKIP IF FOUND 


8B 
8D 


FE30 
3F 


CP 
CCF 


30H 




SET CARRY IF NUMERIC 


8E 


3C 


INC 


A 




SET SIGN 


8F 


3D 


DEC 


A 




NEGATIVE = TOKEN 


90 


C9 


RET 






DONE 






RESTORE 






91 


EB 


EX 


DE,HL 




SAVE POSITION 


92 


2AA44 


LD 


HL, (40A4H) 


POSITION DATA 


95 


2B 


DEC 


HL 




POINTER TO JUST 


96 


22FF40 


LD 


(40FFH) , 


HL 


BEFORE PROGRAM 


99 


EB 


EX 


DE,HL 




RESTORE POSITION 


9A 


C9 


RET 






DONE 






PAUSE 


KEY HANDLER 




9B 


CD5803 


CALL 


0358H 




SCAN KEYBOARD 


9E 


B7 


OR 


A 




ANY KEY HIT? 


9F 


C8 


RET 


Z 




RETURN IF NOT 


AO 


FE60 


CP 


60H 




SHIFT (S? 


A2 


CC8403 


CALL 


Z, 0384H 




WAIT FOR KEYBOARD IF SO 


A5 


329940 


LD 


(4099H) , 


A 


SAVE INKEY$ 


A8 


3D 


DEC 
STOP 


A 




BREAK? RETURN IF NOT 


A9 


CO 


RET 


NZ 




RETURN IF MORE JUNK ON LINE 


AA 


3C 


INC 


A 




FLAG STOP 


AB 


C3B41D 


JP 
END 


1DB4H 




CONTINUE 


AE 


CO 


RET 


NZ 




RETURN IF MORE JUNK ON LINE 


AF 


F5 


PUSH 


AF 




FLAG END. SAVE FLAG 


BO 


CCBB41 


CALL 


Z,41BBH 




DOS LINK 


B3 


Fl 


POP 


AF 




RESTORE FLAG 


B4 


22E640 


LD 


(40E6H) , 


HL 


SAVE POSITION 


B7 


21B540 


LD 


HL,40B5H 


CLEAR 


BA 


22B340 


LD 


(40B3H) , 


HL 


WORKSPACE 


BD 


21 








MASK TO IDCOH 


BE 


F6FF 


OR 


OFFH 




FLAG STOP 


CO 


CI 


POP 


BC 




CLEAR STACK 


CI 


2AA24 


LD 


HL, (40A2H) 


GET CURRENT LINE # 


C4 


E5 


PUSH 


HL 




SAVE CURRENT LINE # 


C5 


F5 


PUSH 


AF 




SAVE FLAG 


C6 


7D 


LD 


A,L 




DIRECT 


C7 


A4 


AND 


H 




MODE? 


C8 


3C 


INC 


A 






C9 


2809 


JR 


Z, 1DD4H 




SKIP IF SO 


CB 


22F540 


LD 


(40F5H) , 


HL 


SAVE CURRENT LINE # 


CE 


2AE640 


LD 


HL, (40E6H) 


GET POSITION 


Dl 


22F740 


LD 


(40F7H) , 


HL 


SAVE POSITION 
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D4 


CD8B03 


CALL 


038BH 


RESET VIDEO & PRINTER 


D7 


CDF920 


CALL 


20F9H 


MOVE TO NEW LINE 


DA 


Fl 


POP 


AF 


RESTORE A 


DB 


213019 


LD 


HL, 1930H 


POINT TO "BREAK" 


DE 


C2061A 


JP 


NZ,1A0 6H 


PRINT "BREAK IN NNN" & REA] 


El 


C3181A 


JP 
CONT 


1A18H 


GO TO READY. 


E4 


2AF74 


LD 


HL, (40F7H) 


GET LAST EXECUTED POSITION 


E7 


7C 


LD 


A,H 


CAN WE 


E8 


B5 


OR 


L 


CONTINUE? 


E9 


1E20 


LD 


E,20H 


POSSIBLE CN ERROR 


EB 


CAA219 


JP 


Z, 19A2H 


ERROR IF WE CAN'T 


EE 


EB 


EX 


DE,HL 


DE = LINE # 


EF 


2AF540 


LD 


HL, (40F5H) 


HL = POSITION 


F2 


22A240 


LD 


(40A2H) ,HL 


SAVE CURRENT LINE # 


F5 


EB 


EX 


DE,HL 




F6 


C9 


RET 
TRON 




GO TO IT! 


F7 


3EAF 


LD 
TROFF 


A, OAFH 


SET TRACE FLAG & MASK TO 1] 


F8 


AF 


XOR 


A 


CLEAR TRACE FLAG 


F9 


321B41 


LD 


(411BH) ,A 


STORE FLAG 


FC 


C9 


RET 




DONE 


FD 


Fl 


POP 


AF 


UNUSED 


FE 


El 


POP 


HL 


SUBROUTINE 


FF 


C9 


RET 
DEFSTR 






00 


1E03 


LD 


E,03H 


TYPE = STRING 


02 


01 


DEFINT 




MASK TO lEOBH 


03 


1E02 


LD 


E, 02H 


TYPE = INTEGER 


05 


01 


DEFSNG 




MASK TO lEOBH 


06 


1E04 


LD 


E,04H 


TYPE = REAL (S.P. ) 


08 


01 


DEFDBL 




MASK TO lEOBH 


09 


1E08 


LD 


E, 08H 


TYPE = REAL (D.P) 






SET DEFAULT IT VARIABLE TYPES 


OB 


CD3D1E 


CALL 


1E3DH 


IS CHARACTER A-Z? 


OE 


019719 


LD 


BC, 1997H 


POSSIBLE SYNTAX ERROR 


11 


C5 


PUSH 


BC 




12 


D8 


RET 


C 


SYNTAX ERROR IF NOT 


13 


D641 


SUB 


41H 


COMPUTE TABLE OFFSET 


15 


4F 


LD 


C,A 


C = OFFSET (FIRST) 


16 


47 


LD 


B,A 


B = OFFSET (SECOND) 


17 


D7 


RST 


lOH 


CHECK NEXT CHARACTER 


18 


FECE 


CP 


OCEH 




lA 


2009 


JR 


NZ, 1E25H 


SKIP IF NOT 


IC 


D7 


RST 


lOH 


GET NEXT CHARACTER 
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ID 


CD3D1E 


CALL 


1E3DH 


IS CHARACTER A - Z 


20 


D8 


RET 


C 


SYNTAX ERROR IF NOT 


21 


D641 


SUB 


41H 


COMPUTE 


23 


47 


LD 


B,A 


SECOND OFFSET 


24 


D7 


RST 


lOH 


SCAN FOR NEXT CHARACTER 


25 


78 


LD 


A,B 


IS SECOND OFFSET 


26 


91 


SUB 


C 


LESS THAN FIRST? 


27 


D8 


RET 


C 


SYNTAX ERROR IF SO. 


28 


3C 


INC 


A 


A = SECOND - FIRST + 1 


29 


E3 


EX 


(SP) ,HL 


SAVE POSITION 


2A 


210141 


LD 


HL,4101H 


COMPUTE 


2D 


0600 


LD 


B,OOH 


POSITION 


2F 


09 


ADD 


HL,BC 


IN TABLE 


30 


73 


LD 


(HL) ,E 


SAVE DEFAULT TYPE 


31 


23 


INC 


HL 


NEXT POSITION 


32 


3D 


DEC 


A 


ONE LESS TO DO 


33 


20FB 


JR 


NZ,1E30H 


LOOP UNTIL DONE 


35 


El 


POP 


HL 


GET POSITION IN TEXT 


36 


7E 


LD 


A, (HL) 


GET CHARACTER 


37 


FE2C 


CP 


2CH 


M II 9 


39 


CO 


RET 


NZ 


DONE IF NOT 


3A 


D7 


RST 


lOH 


GET NEXT CHARACTER 


3B 


18CE 


JR 


lEOBH 


CONTINUE 


3D 


7E 


LD 


A, (HL) 


IS CHARACTER < "A"? 


3E 


FE41 


CP 


41H 




40 


D8 


RET 


C 


RETURN ERROR IF SO 


41 


FE5B 


CP 


5BH 


IS CHARACTER > "Z"? 


43 


3F 


CCF 






44 


C9 


RET 




RETURN ERROR IF SO 






SUBSCRIPT EVALUATION 




45 


D7 


RST 


lOH 


GET NEXT CHARACTER 


46 


CD022B 


CALL 


2B02H 


EVALUATE EXPRESSION 


49 


FO 


RET 


P 


RETURN IF POSITIVE 


4A 


1E08 


LD 


E,08H 


FC ERROR? 


4C 


C3A219 


JP 


19A2H 


GO TO ERROR ROUTINE 






DECODE 


LINE # REFERENCE 


4F 


7E 


LD 


A, (HL) 


GET NEXT CHARACTER 


50 


FE2E 


CP 


2 EH 


PERIOD? 


52 


EB 


EX 


DE,HL 


SAVE POSITION 


53 


2AEC4 


LD 


HL, (40ECH) 


GET "CURRENT" LINE # 


56 


EB 


EX 


DE,HL 


RESTORE POSITION 


57 


CA781D 


JP 


Z, 1D78H 


GET NEXT CHARACTER & RE' 


5A 


2B 


DEC 


HL 


BACKUP 


5B 


110000 


LD 


DE, OOOOH 


LINE # = 


5E 


D7 


RST 


lOH 


GET NEXT CHARACTER 


5F 


DO 


RET 


NC 


RETURN IF NOT NUMBER 


60 


E5 


PUSH 


HL 


SAVE POSITION 


61 


F5 


PUSH 


AF 


SAVE CHARACTER 


62 


219819 


LD 


HL,1998H 


IS LINE # > 6552? 


65 


DF 


RST 


18H 




66 


DA9719 


JP 


C,1997H 


SYNTAX ERROR IF SO 


69 


62 


LD 


H,D 


LINE # 


6A 


6B 


LD 


L,E 


= 


6B 


19 


ADD 


HL,DE 


LINE # 


6C 


29 


ADD 


HL,HL 


* 
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6D 


19 


ADD 


HL,DE 


6E 


29 


ADD 


HL,HL 


6F 


Fl 


POP 


AF 


70 


D630 


SUB 


30H 


72 


5F 


LD 


E,A 


73 


1600 


LD 


D, OOH 


75 


19 


ADD 


HL,DE 


76 


EB 


EX 


DE,HL 


77 


El 


POP 


HL 


78 


18E4 


JR 
CLEAR 


1E5EH 


7A 


CA611B 


JP 


Z, 1B61H 


7D 


CD461E 


CALL 


1E46H 


80 


2B 


DEC 


HL 


81 


D7 


RST 


lOH 


82 


CO 


RET 


NZ 


83 


E5 


PUSH 


HL 


84 


2AB14 


LD 


HL, (40B1H) 


87 


7D 


LD 


A,L 


88 


93 


SUB 


E 


89 


5F 


LD 


E,A 


8A 


7C 


LD 


A,H 


8B 


9A 


SBC 


A,D 


8C 


57 


LD 


D,A 


8D 


DA7A19 


JP 


C, 197AH 


90 


2AF940 


LD 


HL, (40F9H) 


93 


012800 


LD 


BC, 0028H 


96 


09 


ADD 


HL,BC 


97 


DF 


RST 


18H 


98 


D2 7A19 


JP 


NC, 197AH 


9B 


EB 


EX 


DE,HL 


9C 


22A040 


LD 


(40A0H) ,HL 


9F 


El 


POP 


HL 


AO 


C3611B 


JP 
RUN 


1B61H 


A3 


CA5D1B 


JP 


Z, 1B5DH 


A6 


CDC741 


CALL 


41C7H 


A9 


CD611B 


CALL 


1B61H 


AC 


OllElD 


LD 


BC, IDIEH 


AF 


1810 


JR 
GOSUB 


lEClH 


Bl 


0E03 


LD 


C,03H 


B3 


CD6319 


CALL 


1963H 


B6 


CI 


POP 


BC 


B7 


E5 


PUSH 


HL 


B8 


E5 


PUSH 


HL 


B9 


2AA24 


LD 


HL, (40A2H) 


BC 


E3 


EX 


(SP) ,HL 


BD 


3E91 


LD 


A,91H 


BF 


F5 


PUSH 


AF 


CO 


33 


INC 


SP 


CI 


C5 


PUSH 
GOTO 


BC 



10 

RESTORE CHARACTER 
GET VALUE 
DE = VALUE 

LINE # = LINE #*10 + VALUE 
DE = LINE # 
RESTORE POSITION 
LOOP FOR MORE 



RESET VARIABLES IF NO PARAM . 

EVALUATE NUMBER TO CLEAR 

BACK UP ONE 

GET NEXT CHARACTER 

RETURN IF MORE JUNK 

SAVE POSITION 

GET MEMORY SIZE 

DE 

MEMORY SIZE 

SPACE TO CLEAR 

OM ERROR IF DE < 

HL = 

END OF PROGRAM 

+ 40 

COMPARE WITH NEW END OF MEMORY 

OM ERROR IF OVERLAP 

HL = NEW END OF AVAILABLE MEMORY 

SAVE NEW END OF AVAILABLE MEMORY 

RESTORE POSITION 

RESET VARIABLES & RETURN 



CLEAR & GO IF NO PARAM 
LINK TO DOS 
RESET VARIABLES 
BC => EXECUTOR 
CONTINUE GOTO LINE 



REQUEST 3 BYTES 

CHECK IF ENOUGH SPACE 

SAVE INTERPRETER RETURN 

SAVE POSITION 

TWICE 

GET CURRENT LINE # 

SAVE LINE # RESTORE POSITION 

SAVE 

GOSUB TOKEN 

TRIM EXTRA BYTE FROM STACK 

SAVE INTERPRETER RETURN 
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EC2 


CDSAIE 


CALL 


1E5AH 


ECS 


CD071F 


CALL 


1F07H 


ECS 


ES 


PUSH 


HL 


EC9 


2AA24 


LD 


HL, (40A2H) 


ECC 


DF 


RST 


18H 


ECD 


El 


POP 


HL 


ECE 


23 


INC 


HL 


ECF 


DC2F1B 


CALL 


C, 1B2FH 


ED2 


D42C1B 


CALL 


NC, 1B2CH 


EDS 


60 


LD 


H,B 


ED6 


69 


LD 


L,C 


ED 7 


2B 


DEC 


HL 


EDS 


DS 


RET 


C 


ED9 


lEOE 


LD 


E, OEH 


EDB 


C3A219 


JP 


19A2H 


EDE 


CO 


RET 


NZ 


EDF 


16FF 


LD 


D, OFFH 


EEl 


CD3619 


CALL 


1936H 


EE4 


F9 


LD 


SP,HL 


EES 


22ES40 


LD 


(40E8H) ,HL 


EES 


FE91 


CP 


91H 


EEA 


1E04 


LD 


E, 04H 


EEC 


C2A219 


JP 


NZ,19A2H 


EEF 


El 


POP 


HL 


EFO 


22A240 


LD 


(40A2H) ,HL 


EF3 


23 


INC 


HL 


EF4 


7C 


LD 


A,H 


EFS 


BS 


OR 


L 


EF6 


2007 


JR 


NZ, lEFFH 


EFS 


3ADD4 


LD 


A, (40DDH) 


EFB 


B7 


OR 


A 


EFC 


C21S1A 


JP 


NZ, 1A18H 


EFF 


211E1D 


LD 


HL,1D1EH 


F02 


E3 


EX 


(SP) ,HL 


F03 


3E 






F04 


El 


POP 


HL 






DATA 


(1F05) (SKIP 1 




013A0E 


& ELSE & REM (1F07 


FOS 


LD 


BC,0E3AH 


F08 


00 


NOP 




F09 


0600 


LD 


B, OOH 


FOB 


79 


LD 


A,C 


FOC 


4S 


LD 


C,B 


FOD 


47 


LD 


B,A 


FOE 


7E 


LD 


A, (HL) 


EOF 


B7 


OR 


A 


FIO 


CS 


RET 


Z 


Fll 


BS 


CP 


B 


F12 


CS 


RET 


Z 


F13 


23 


INC 


HL 


F14 


FE22 


CP 


22H 


F16 


2SF3 


JR 


Z,1F0BH 


FIS 


D6SF 


SUB 


8FH 


FIA 


20F2 


JR 


NZ,1F0EH 



DECODE LINE # 

SKIP REST OF LINE 

SAVE POSITION 

GET CURRENT LINE # 

COMPARE WITH DESTINATION 

RESTORE POSITION 

MOVE UP TO FORWARD POINTER 

SCAN FORWARD IF LATER 

SCAN WHOLE PROGRAM OTHERWISE 

GET POSITION 

OF LINE & ADJUST 

AS CURRENT POSITION 

RETURN IF LINE FORWARD 

UL ERROR S 

TO ERROR ROUTINE 

RETURN 

RETURN IF ANY PARAMS 

CLEAR STACK OF 

ANY FORS SET UP 

IN SUBROUTINE 

SAVE NEW STACK POSITION 

GOSUB TOKEN? 

POSSIBLE RG ERROR 

ERROR IF NO GOSUB DATA 

GET RETURN LINE # 

SAVE AS CURRENT LINE # 

DIRECT MODE? 



SKIP IF NOT 
INPUTTING TEXT? 

EXIT IF SO 

SET MACHINE RETURN 

GET POSITION & SAVE RETURN 

MASK TO IFOSH 

GET POSITION 



DELIMITER ":" SKIP TO 1F09 
DELIMITER NULL (END OF LINE) 
ALTERNATE DELIMITER NULL 
SWAP 
DELIMITERS 

GET CHARACTER 

TEST IT 

RETURN IF END OF LINE 

DELIMITER? 

RETURN IF SO 

GO TO NEXT CHARACTER 

DOUBLE QUOTES? 

SWAP DELIMITERS IF SO. 

IF TOKEN? 

LOOP IF NOT 



MOD III ROM COMMENTED (C) 1981 SOFT SECTOR MARKETING INC. 

PAGE 8 



FlC 


B8 


CP 


B 


FID 


8A 


ADC 


A,D 


FIE 


57 


LD 


D,A 


FIF 


18ED 


JR 


IFOEH 




CD0D26 


LET (EVALUATE EXP] 


F21 


CALL 


2 6 0DH 


F24 


CF 


RST 


08H 


F25 


D5 






F26 


EB 


EX 


DE,HL 


F27 


22DF40 


LD 


(40DFH) ,HL 


F2A 


EB 


EX 


DE,HL 


F2B 


D5 


PUSH 


DE 


F2C 


E7 


RST 


20H 


F2D 


F5 


PUSH 


AF 


F2E 


CD3723 


CALL 


2337H 


F31 


Fl 


POP 


AF 


F32 


E3 


EX 


(SP) ,HL 


F33 


C603 


ADD 


A, 03H 


F35 


CD1928 


CALL 


2819H 


F38 


CD030A 


CALL 


0A03H 


F3B 


E5 


PUSH 


HL 


F3C 


2028 


JR 


NZ, 1F66H 


F3E 


2A2141 


LD 


HL, (4121H) 


F41 


E5 


PUSH 


HL 


F42 


23 


INC 


HL 


F4 3 


5E 


LD 


E, (HL) 


F44 


23 


INC 


HL 


F45 


56 


LD 


D, (HL) 


F46 


2AA44 


LD 


HL, (40A4H) 


F4 9 


DF 


RST 


18H 


F4A 


300E 


JR 


NC,1F5AH 


F4C 


2AA040 


LD 


HL, (40A0H) 


F4F 


DF 


RST 


18H 


F50 


Dl 


POP 


DE 


F51 


300F 


JR 


NC, 1F62H 


F53 


2AF940 


LD 


HL, (40F9H) 


F56 


DF 


RST 


18H 


F57 


3009 


JR 


NC, 1F62H 


F59 


3E 






F5A 


Dl 


POP 


DE 


FSB 


CDF529 


CALL 


29F5H 


F5E 


EB 


EX 


DE,HL 


F5F 


CD4328 


CALL 


2843H 


F62 


CDF529 


CALL 


29F5H 


F65 


E3 


EX 


(SP) ,HL 


F66 


CDD3 09 


CALL 


09D3H 


F69 


Dl 


POP 


DE 


F6A 


El 


POP 


HL 


F6B 


C9 


RET 




F6C 


FE9E 


CP 


9EH 


F6E 


2025 


JR 


NZ, 1F95H 


F70 


D7 


RST 


lOH 


F71 


CF 


RST 


08H 


F72 


8D 







D = D+ 1 
IF NOT IN A 
QUOTED STRING 
LOOP UNTIL DONE. 



FIND VARIABLE TO STORE TO 

SYNTAX ERROR IF 

NEXT CHARACTER NOT "=" TOKEN 

SAVE 

VARIABLE 

POINTER 

SAVE IT IN STACK, TOO 

CHECK TYPE 

SAVE TYPE IN STACK 

EVALUATE EXPRESSION 

RESTORE TYPE 

SAVE POSITION, RESTORE VARIABLE 

ADJUST TYPE 

CONVERT RESULT TO PROPER TYPE 

DE => ACCUM 

SAVE VARIABLE POINTER 

JUMP IF NOT STRING 

HL => STRING INFO 

SAVE STRING INFO POINTER 

DE => STRING 



JUMP IF STRING 

IS LOCATED 

BEFORE THE PROGRAM 

IS THE STRING 

IN THE SIRING SPACE? 

RESTORE INFO POINTER 

JUMP IF NOT 

JUMP IF THE 

STRING IS IN 

THE PROGRAM 

MASK TO 1F5BH 

RESTORE INFO POINTER 

DE => TEMPORARY STRING 

MOVE TO STRING SPACE 

CLEAN UP WORKSPACE 

SAVE RESULT POINTER. GET DESTINATION 

MOVE DATA TO DESTINATION 

RESTORE VARIABLE POINTER 

RESTORE POSITION 

DONE 

ON 

ERROR? 

JUMP IF NOT 

GET NEXT CHARACTER 

SYNTAX ERROR IF 

NEXT TOKEN NOT "GOTO" 
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F73 


CD5A1E 


CALL 


1E5AH 


EVALUATE LINE # 


F76 


7A 


LD 


A,D 


ZERO? 


F77 


B3 


OR 


E 




F78 


2809 


JR 


Z, 1F83H 


SKIP IF SO 


F7A 


CD2A1B 


CALL 


1B2AH 


SEARCH FOR LINE # 


F7D 


50 


LD 


D,B 


DE => LINE POSITION 


F7E 


59 


LD 


E,C 




F7F 


El 


POP 


HL 


RESTORE POSITION 


F80 


D2D91E 


JP 


NC, 1ED9H 


JUMP IF LINE NOT FOUND 


F83 


EB 


EX 


DE,HL 


SAVE ERROR 


F84 


22F040 


LD 


(40F0H) ,HL 


TRAP LOCATION 


F87 


EB 


EX 


DE,HL 




F88 


D8 


RET 


C 


RETURN IF LINE FOUND 


F89 


3AF24 


LD 


A, (40F2H) 


ALREADY PROCESSING 


F8C 


B7 


OR 


A 


AN ERROR? 


F8D 


C8 


RET 


Z 


RETURN IF NOT 


F8E 


3A9A4 


LD 


A, (409AH) 


GET ERROR CODE 


F91 


5F 


LD 


E,A 




F92 


C3AB19 


JP 

ON N. . , 


19ABH 


GOTO ERROR ROUTINE 


F95 


CD1C2B 


CALL 


' 2B1CH 


EVALUATE INDEX 


F98 


7E 


LD 


A, (HL) 


GET NEXT CHARACTER 


F99 


47 


LD 


B,A 


SAVE FOR LATER 


F9A 


FE91 


CP 


91H 


GOSUB? 


F9C 


2803 


JR 


Z, IFAIH 


SKIP IF SO 


F9E 


CF 


RST 


08H 


SYNTAX ERROR IF 


F9F 


8D 






TOKEN NOT GOTO 


FAO 


2B 


DEC 


HL 


BACKUP 


FAl 


4B 


LD 


C,E 


GET INDEX 


FA2 


OD 


DEC 


C 


ONE LESS LINE # TO SKIP 


FA3 


78 


LD 


A,B 


GET TOKEN 


FA4 


CA601D 


JP 


Z, 1D60H 


EXECUTE BRANCH IF DONE 


FA7 


CD5B1E 


CALL 


1E5BH 


SKIP LINE # 


FAA 


FE2C 


CP 


2CH 


COMMA? 


FAC 


CO 


RET 


NZ 


RETURN IF NOT. NO ACTION 


FAD 


18F3 


JR 


1FA2H 


LOOP FOR MORE. 


FAF 


11F240 


LD 


DE,40F2H 


WAS THERE 


FB2 


lA 


LD 


A, (DE) 


AN ERROR? 


FB3 


B7 


OR 


A 




FB4 


CAA019 


JP 


Z, 19A0H 


RW IF NOT 


FB7 


3C 


INC 


A 


CLEAR ERROR 


FB8 


329A40 


LD 


(409AH) ,A 


CLEAR ERROR TRAP FLAG 


FBB 


12 


LD 


(DE) ,A 


CLEAR ERROR FLAG 


FBC 


7E 


LD 


A, (HL) 


GET NEXT TOKEN 


FBD 


FE87 


CP 


87H 


NEXT? 


FBF 


280C 


JR 


Z,1FCDH 


JUMP IF SO 


FCl 


CD5A1E 


CALL 


1E5AH 


DECODE LINE # 


FC4 


CO 


RET 


NZ 


RETURN IF ANY MORE PARAMS 


FC5 


7A 


LD 


A,D 


GO TO 


FC6 


B3 


OR 


E 


LINE # IF 


FC7 


C2C51E 


JP 


NZ,1EC5H 


LINE # <> 


FCA 


3C 


INC 


A 




FCB 


1802 


JR 
RESUME 


IFCFH 
NEXT 




FCD 


D7 


RST 


lOH 


SCAN FOR MORE PARAMS 
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IFCE 


CO 


RET 


NZ 


IFCF 


2AEE4 


LD 


HL, (40EEH) 


1FD2 


EB 


EX 


DE,HL 


1FD3 


2 AEA4 


LD 


HL, (40EAH) 


1FD6 


22A240 


LD 


(40A2H) ,HL 


1FD9 


EB 


EX 


DE,HL 


IFDA 


CO 


RET 


NZ 


IFDB 


7E 


LD 


A, (HL) 


IFDC 


B7 


OR 


A 


IFDD 


2004 


JR 


NZ,1FE3H 


IFDF 


23 


INC 


HL 


IFEO 


23 


INC 


HL 


IFEl 


23 


INC 


HL 


1FE2 


23 


INC 


HL 


1FE3 


23 


INC 


HL 


1FE4 


7A 


LD 


A,D 


1FE5 


A3 


AND 


E 


1FE6 


3C 


INC 


A 


1FE7 


C2051F 


JP 


NZ, 1F05H 


IFEA 


3 ADD4 


LD 


A, (40DDH) 


IFED 


3D 


DEC 


A 


IFEE 


CABEID 


JP 


Z,1DBEH 


IFFl 


C3051F 


JP 
ERROR 


1F05H 


1FF4 


CD1C2B 


CALL 


2B1CH 


1FF7 


CO 


RET 


NZ 


1FF8 


B7 


OR 


A 


1FF9 


CA4A1E 


JP 


Z, 1E4AH 


IFFC 


3D 


DEC 


A 


IFFD 


87 


ADD 


A, A 


IFFE 


5F 


LD 


E,A 


IFFF 


FE2D 


CP 


2DH 


2001 


3802 


JR 


C,2005H 


2003 


1E26 


LD 


E,26H 


2005 


C3A219 


JP 
AUTO 


19A2H 


2008 


llOAOO 


LD 


DE , AH 


200B 


D5 


PUSH 


DE 


200C 


2817 


JR 


Z,2025H 


200E 


CD4F1E 


CALL 


1E4FH 


2011 


EB 


EX 


DE,HL 


2012 


E3 


EX 


(SP) ,HL 


2013 


2811 


JR 


Z,2026H 


2015 


EB 


EX 


DE,HL 


2016 


CF 


RST 


08H 


2017 


2C 


II II 

/ 




2018 


EB 


EX 


DE,HL 


2019 


2AE44 


LD 


HL, (40E4H) 


201C 


EB 


EX 


DE,HL 


201D 


2806 


JR 


Z,2025H 


201F 


CD5A1E 


CALL 


1E5AH 


2022 


C29719 


JP 


NZ, 1997H 


2025 


EB 


EX 


DE,HL 


2026 


7C 


LD 


A,H 


2027 


B5 


OR 


L 



RETURN IF THERE WERE ANY 

GET POSITION BEFORE ERROR 

SAVE TEMPORARILY 

GET OLD LINE # 

SAVE AS CURRENT LINE # 

RESTORE POSITION 

DONE IF RESUME 

GET NEXT CHARACTER 

END OF LINE? 

SKIP IF NOT 

SKIP OVER 

LINE HEADER 

DATA 

NEXT CHARACTER 
DIRECT MODE? 



SKIP REST OF STATEMENT IF SO 
INPUTTING TEXT 

STOP IF NOT 

SKIP REST OF STATEMENT & RETURN 



EVALUATE PARAM 
RETURN IF ANY MORE 
ERROR 

FC ERROR IF SO 
ERR= (ERROR -1) *2 

STORE ERROR CODE 

VALID ERROR CODE 

SKIP IF SO 

UE ERROR 

GOTO ERROR ROUTINE 



DEFAULT START =10 

SAVE DEFAULT START 

JUMP IF NO PARAMS 

DECODE START LINE # 

SAVE START 

LINE # ON STACK 

JUMP IF NO MORE PARAMS 

RESTORE POSITION 

SYNTAX ERROR IF NEXT 

CHARACTER IS NOT A COMMA 

SAVE POSITION 

GET OLD AUTO INCREMENT 

RESTORE POSITION 

SKIP IF NO MORE PARAMS 

DECODE INCREMENT 

ERROR IF MORE PARAMS 

PUT INCREMENT IN HL 

INCREMENT 

ZERO? 
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2028 


CA4A1E 


JP 


Z, 1E4AH 


FC ERROR IF SO 


202B 


22E440 


LD 


(40E4H) ,HL 


SAVE INCREMENT 


202E 


32E140 


LD 


(40E1H) ,A 


SAVE AUTO FLAG 


2031 


El 


POP 


HL 


SAVE 


2032 


22E240 


LD 


(40E2H) ,HL 


START LINE # 


2035 


CI 


POP 


EC 


CLEAR RETURN 


2036 


C3331A 


JP 


1A33H 


ENTER COMMAND MODE 


2039 


CD3723 


IF 

CALL 


2337H 


EVALUATE EXPRESSION 


203C 


7E 


LD 


A, (HL) 


GET CHARACTER OR TOKEN 


203D 


FE2C 


CP 


2CH 


COMMA? 


203F 


CC781D 


CALL 


Z, 1D78H 


SKIP COMMA 


2042 


FECA 


CP 


OCAH 


THEN? 


2044 


CC781D 


CALL 


Z,1D78H 


SKIP THEN 


2047 


2B 


DEC 


HL 


BACKUP 


2048 


E5 


PUSH 


HL 


SAVE POSITION 


2049 


CD9409 


CALL 


0994H 


TEST SIGN OF EXPRESSION 


204C 


El 


POP 


HL 


RESTORE POSITION 


204D 


2807 


JR 


Z,2056H 


JUMP IF FALSE 


204F 


D7 


RST 


lOH 


SCAN TO NEXT CHARACTER 


2050 


DAC21E 


JP 


C,1EC2H 


GOTO IF NUMERIC 


2053 


C35F1D 


JP 


1D5FH 


ELUTE STATEMENTS 


2056 


1601 


LD 


D, OIH 


D = # NESTED IFS 


2058 


CD051F 


CALL 


1F05H 


SCAN TO END OF STATEMENT 


205B 


B7 


OR 


A 


END OF LINE? 


205C 


C8 


RET 


Z 


RETURN IF SO 


205D 


D7 


RST 


lOH 


GET TOKEN 


205E 


FE95 


CP 


95H 


ELSE? 


2060 


20F6 


JR 


NZ,2058H 


NEXT STATEMENT IF NOT 


2062 


15 


DEC 


D 


EXIT NEST BY ONE LEVEL 


2063 


20F3 


JR 


NZ,2058H 


LOOP IF NOT OUT FAR ENOUGH 


2065 


18E8 


JR 
LPRINT 


204FH 


EXECUTE STATEMENTS 


2067 


3E01 


LD 


A, OIH 


ROUTE OUTPUT 


2069 


329C40 


LD 


(409CH) ,A 


TO PRINTER 


206C 


C37C20 


JP 

PRINT 


2 7CH 


CONTINUE 


206F 


CDCA41 


CALL 


41CAH 


DOS LINK 


2072 


FE23 


CP 


23H 


PRINT#? 


2074 


2006 


JR 


NZ,207CH 


SKIP IF NOT 


2076 


CD8402 


CALL 


0284H 


TURN TAPE ON. NO HEADER 


2079 


329C40 


LD 


(409CH) ,A 


ROUTE TO TAPE 


207C 


2B 


DEC 


HL 


BACKUP 


207D 


D7 


RST 


lOH 


END OF STATEMENT? 


207E 


CCFE2 


CALL 


Z,20FEH 


NEW LINE IF SO 


2081 


CA6 921 


JP 


Z,2169H 


FINISH UP IF SO 


2084 


F620 


OR 


20H 


PRINT @? 


2086 


FE60 


CP 


60H 




2088 


201B 


JR 


NZ,2 0A5H 


SKIP IF NOT 


208A 


CD012B 


CALL 


2B01H 


GET SCREEN POSITION 


208D 


FE04 


CP 


04H 


OFF SCREEN? 


208F 


D24A1E 


JP 


NC,1E4AH 


FC ERROR IF SO 


2092 


E5 


PUSH 


HL 


SAVE TEXT POSITIONS 


2093 


21003C 


LD 


HL,3C00H 


COMPUTE SCREEN 



MOD III ROM COMMENTED (C) 1981 SOFT SECTOR MARKETING INC. 

PAGE 84 



2096 


19 


ADD 


HL,DE 


MEMORY POSITION 


2097 


222040 


LD 


(4020H) ,HL 


POSITION CURSOR 


2 9A 


7B 


LD 


A,E 


COMPUTE & 


209B 


E63F 


AND 


3FH 


SAVE POSITION 


209D 


32A640 


LD 


(40A6H) ,A 




2 0A0 


El 


POP 


HL 


RESTORE TEXT POSITION 


2 0A1 


CF 


RST 


08H 


SYNTAX ERROR IF NEXT 


2 0A2 


2C 


11 11 




CHARACTER IS NOT A COMMA 


2 0A3 


18C7 


JR 


206CH 


NEXT ITEM 


2 0A5 


7E 


LD 


A, (HL) 


GET NEXT TOKEN 


2 0A6 


FEBF 


CP 


OBFH 


USING? 


2 0A8 


CABD2C 


JP 


Z,2CBDH 


JUMP IF SO 


2 0AB 


FEBC 


CP 


OBCH 


TAB? 


2 AD 


CA3 721 


JP 


Z,2137H 


JUMP IF SO 


20B0 


E5 


PUSH 


HL 


SAVE TEXT POSITION 


20B1 


FE2C 


CP 


2CH 


COMMA? 


20B3 


2853 


JR 


Z,2108H 


JUMP IF SO 


20B5 


FE3B 


CP 


3BH 


SEMI -COLON? 


20B7 


285E 


JR 


Z,2117H 


JUMP IF SO 


20B9 


CD3723 


CALL 


2337H 


EVALUATE EXPRESSION 


20BC 


E3 


EX 


(SP) ,HL 


RESTORE POSITION 


2 0BD 


E7 


RST 


20H 


CHECK TYPE OF ACCUM 


2 0BE 


2832 


JR 


Z,20F2H 


JUMP IF STRING 


20C0 


CDBDOF 


CALL 


OFBDH 


COVERT NUMBER TO ASCII 


20C3 


CD6528 


CALL 


2865H 


PRINT ASCII STRING 


20C6 


CDCD41 


CALL 


41CDH 


DOS LINK 


20C9 


2A2141 


LD 


HL, (4121H) 


POINT TO STRING DESCRIPTOR 


20CC 


3A9C40 


LD 


A, (409CH) 


CHECK DEVICE 


20CF 


B7 


OR 


A 




20D0 


FAE92 


JP 


M,20E9H 


JUMP IF TO TAPE 


20D3 


2808 


JR 


Z,2 0DDH 


JUMP IF TO VIDEO 


20D5 


3A9B40 


LD 


A, (409BH) 


GET PRINTER POSITION 


20D8 


86 


ADD 


A, (HL) 


COMPUTE NEW POSITION 


20D9 


FE84 


CP 


84H 


PAST COLUMN 132? 


2 0DB 


1809 


JR 


20E6H 


CONTINUE 


2 ODD 


3A9D4 


LD 


A, (409DH) 


GET SIZE OF LINE 


20E0 


47 


LD 


B,A 




20E1 


3AA640 


LD 


A, (40A6H) 


GET POSITION IN LINE 


20E4 


86 


ADD 


A, (HL) 


ADD LENGTH OF STRING TO PO: 


20E5 


B8 


CP 


B 


TOO FAR DOWN LINE? 


20E6 


D4FE20 


CALL 


NC,20FEH 


NEW LINE IF SO 


20E9 


CDAA2 8 


CALL 


2 8AAH 


DISPLAY NUMBER 


20EC 


3E20 


LD 


A,20H 


DISPLAY A SPACE 


20EE 


CD2A03 


CALL 


03 2AH 


AFTER THE NUMBER 


20F1 


B7 


OR 


A 


SET NON-ZERO 


20F2 


CCAA2 8 


CALL 


Z , 2 8AAH 




20F5 


El 


POP 


HL 


RESTORE TEXT POSITION 


20F6 


C37C20 


JP 


207CH 


CONTINUE 


20F9 


3AA640 


LD 


A, (40A6H) 


GET POS 


20FC 


B7 


OR 


A 


TEST IT 


2 0FD 


C8 


RET 


Z 


RETURN IF 


20FE 


3E0D 


LD 


A,ODH 


GO TO 


2100 


CD2A03 


CALL 


03 2AH 


NEW LINE 


2103 


CDD041 


CALL 


41D0H 


DOS LINK 


2106 


AF 


XOR 


A 


CLEAR STATUS 


2107 


C9 


RET 




DONE 


2108 


CDD341 


CALL 


41D3H 


DOS LINK 
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210B 


3A9C40 


LD 


A, (409CH) 


GET DEVICE FLAG 


210E 


B7 


OR 


A 


TEST IT 


210F 


F21921 


JP 


P,2119H 


SKIP IF NOT TAPE 


2112 


3E2C 


LD 


A,2CH 


OUTPUT 


2114 


CD2A03 


CALL 


03 2AH 


A COMMA 


2117 


184B 


JR 


2164H 


CONTINUE 


2119 


2808 


JR 


Z,2123H 


SKIP IF VIDEO 


211B 


3A9B40 


LD 


A, (409BH) 


GET PRINTER POSITION 


211E 


FE70 


CP 


70H 


CHECK IF TOO FAR? 


2120 


C32B21 


JP 


212BH 


CONTINUE 


2123 


3A9E4 


LD 


A, (409EH) 


GET VIDEO WIDTH 


2126 


47 


LD 


B,A 


PUT IN B 


2127 


3AA640 


LD 


A, (40A6H) 


GET VIDEO POSITION 


212A 


B8 


CP 


B 


TOO FAR DOWN LINE? 


212B 


D4FE20 


CALL 


NC,20FEH 


NEW LINE IF SO 


212E 


3034 


JR 


NC,2164H 


SKIP OUT IF SO 


2130 


D610 


SUB 


lOH 


COMPUTE # SPACES 


2132 


30FC 


JR 


NC,2130H 


TO TAB 


2134 


2F 


CPL 




INVERT IT 


2135 


1823 


JR 


215AH 


CONTINUE 


2137 


CD1B2B 


CALL 


2B1BH 


EVALUATE TAB 


213A 


E67F 


AND 


7FH 


MASK BIT 7 OFF 


213C 


5F 


LD 


E,A 


SAVE FOR LATER 


213D 


CF 


RST 


08H 


IF NEXT CHARACTER NOT 


213E 


29 


II \ II 




" ) " THEN SYNTAX ERROR 


213F 


2B 


DEC 


HL 


BACKUP 


2140 


E5 


PUSH 


HL 


SAVE POSITION 


2141 


CDD341 


CALL 


41D3H 


DOS LINK 


2144 


3A9C40 


LD 


A, (409CH) 


CHECK 


2147 


B7 


OR 


A 


ROUTING 


2148 


FA4A1E 


JP 


M, 1E4AH 


FC ERROR IF TAPE 


214B 


CA5321 


JP 


Z,2153H 


SKIP IF VIDEO 


214E 


3A9B40 


LD 


A, (409BH) 


GET PRINTER HEAD POSITION 


2151 


1803 


JR 


2156H 


CONTINUE 


2153 


3AA640 


LD 


A, (40A6H) 


GET VIDEO POSITION 


2156 


2F 


CPL 




COMPUTE TAB-POS-1 


2157 


83 


ADD 


A,E 




2158 


3 0A 


JR 


NC,2164H 


IGNORE IF PAST TAB 


215A 


3C 


INC 


A 


B = TAB - POS 


215B 


47 


LD 


B,A 




215C 


3E20 


LD 


A,20H 


SPACE 


215E 


CD2A03 


CALL 


03 2AH 


OVER 


2161 


05 


DEC 


B 


LOOP UNTIL 


2162 


2 0FA 


JR 


NZ,215EH 


DONE 


2164 


El 


POP 


HL 


RESTORE POSITION 


2165 


D7 


RST 


lOH 


GET NEXT CHARACTER 


2166 


C38120 


JP 


2081H 


LOOP 


2169 


3A9C40 


LD 


A, (409CH) 


CHECK 


216C 


B7 


OR 


A 


ROUTING 


216D 


FCF801 


CALL 


M,01F8H 


TURN OFF TAPE 


2170 


AF 


XOR 


A 


RESET ROUTING 


2171 


329C40 


LD 


(409CH) ,A 


TO VIDEO 


2174 


CDBE41 


CALL 


41BEH 


DOS LINK 


2177 


C9 


RET 




DONE 


2178 


3F5245444F0D00 




"?REDO" OD 


217F 


3ADE4 


LD 


A, (40DEH) 


READ ERROR? 


2182 


B7 


OR 


A 
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2183 


C29119 


JP 


NZ, 1991H 


SYNTAX ERROR IF SO 


2186 


3AA940 


LD 


A, (40A9H) 


TAPE INPUT ERROR 


2189 


B7 


OR 


A 




218A 


1E2A 


LD 


E,2AH 


FD ERROR 


218C 


CAA219 


JP 


Z,19A2H 


IF SO 


218F 


CI 


POP 


EC 


CLEAR STACK 


2190 


217821 


LD 


HL,2178H 


PRINT 


2193 


CDA72 8 


CALL 


2 8A7H 


"REDO" 


2196 


2AE640 


LD 


HL, (40E6H) 


RESTORE POSITION 


2199 


C9 


RET 
INPUT 




CONTINUE 


219A 


CD2828 


CALL 


2828H 


CHECK FOR ILLEGAL DIRECT 


219D 


7E 


LD 


A, (HL) 


GET CHARACTER 


219E 


CDD641 


CALL 


41D6H 


DOS LINK 


21A1 


D623 


SUB 


23H 


INPUT#? 


21 A3 


32A940 


LD 


(40A9H) ,A 


SAVE STATUS 


21A6 


7E 


LD 


A, (HL) 


GET CHARACTER 


21A7 


2020 


JR 
TAPE 


NZ,21C9H 
INPUT 


JUMP IF KEYBOARD INPUT 


21A9 


CD9302 


CALL 


0293H 


START TAPE & READ HEADER 


21 AC 


E5 


PUSH 


HL 


SAVE TEXT POSITION 


2 IAD 


06FA 


LD 


B, OFAH 


250 BYTE MAX. 


21AF 


2AA740 


LD 


HL, (40A7H) 


HL => BUFFER 


21B2 


CD3502 


CALL 


0235H 


READ BYTE 


21B5 


77 


LD 


(HL) ,A 


SAVE BYTE 


21B6 


23 


INC 


HL 


POINT TO NEXT BYTE 


21B7 


FEOD 


CP 


ODH 


END OF LINE? 


21B9 


2802 


JR 


Z,21BDH 


SKIP OUT IF SO 


21BB 


10F5 


DJNZ 


21B2H 


LOOP TO BUFFER FULL 


21BD 


2B 


DEC 


HL 


MARK END 


21BE 


3600 


LD 


(HL) , OOH 


OF INPUT STRING 


21C0 


CDF801 


CALL 


01F8H 


STOP TAPE 


21C3 


2AA740 


LD 


HL, (40A7H) 


HL =>JUST BEFORE BUFFER 


21C6 


2B 


DEC 


HL 




21C7 


1822 


JR 


21EBH 


DECODE INPUT 


21C9 


01DB21 


LD 


BC,21DBH 


SET RETURN 


21CC 


C5 


PUSH 


BC 


TO 21DBH 


21CD 


FE22 


CP 


22H 


DOUBLE QUOTES? 


21CF 


CO 


RET 


NZ 


RETURN IF NOT 


21D0 


CD6628 


CALL 


2866H 


PROCESS QUOTED STRING 


21D3 


CF 


RST 


08H 


SYNTAX ERROR IF NEXT 


21D4 


3B 


II . II 




CHARACTER NOT SEMI -COLON 


21D5 


E5 


PUSH 


HL 


SAVE POSITION 


21D6 


CDAA2 8 


CALL 


2 8AAH 


OUTPUT STRING 


21D9 


El 


POP 


HL 


RESTORE POSITION 


2 IDA 


C9 


RET 




RETURN 


21DB 


E5 


PUSH 


HL 


SAVE POSITION IN TEXT 


21DC 


CDB31B 


CALL 


1BB3H 


PRINT "?" & INPUT DATA 


21DF 


CI 


POP 


BC 


RESTORE POSITION 


21E0 


DABEID 


JP 


CIDBEH 


STOP IF <BREAK> 


21E3 


23 


INC 


HL 


NULL 


21E4 


7E 


LD 


A, (HL) 


INPUT? 


21E5 


B7 


OR 


A 




21E6 


2B 


DEC 


HL 




21E7 


C5 


PUSH 


BC 


SAVE POSITION 
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21E8 


CA041F 


JP 


Z, 1F04H 


NO ACTION IF NULL INPUT 


21EB 


362C 


LD 


(HL) ,2CH 


PLACE A COMMA BEFORE 


21ED 


1805 


JR 
READ 


21F4H 


DATA & CONTINUE 


21EF 


E5 


PUSH 


HL 


SAVE POSITION IN TEXT 


21F0 


2AFF4 


LD 


HL, (40FFH) 


HL => CURRENT DATA LOCATION 


21F3 


F6AF 


OR 


OAFH 


SET READ & SKIP TO 21F5H 


21F4 


AF 


XOR 


A 


SET INPUT 


21F5 


32DE40 


LD 


(40DEH) ,A 


SAVE READ /INPUT FLAG 


21F8 


E3 


EX 


(SP) ,HL 


SAVE DATA POINTER. GET TEXT POINTER 


21F9 


1802 


JR 


21FDH 


CONTINUE 


21FB 


CF 


RST 


08H 


SYNTAX ERROR IF NEXT 


21FC 


2C 


11 11 




CHARACTER IS NOT A COMMA 


21FD 


CD0D26 


CALL 


2 6 0DH 


FIND VARIABLE 


2200 


E3 


EX 


(SP) ,HL 


GET DATA POINTER. SAVE TEXT POINTER 


2201 


D5 


PUSH 


DE 


SAVE VARIABLE POINTER 


2202 


7E 


LD 


A, (HL) 


GET DATA CHARACTER. 


2203 


FE2C 


CP 


2CH 


COMMA? 


2205 


2826 


JR 


Z,222DH 


SKIP IF SO. 


2207 


3ADE4 


LD 


A, (40DEH) 


GO GET 


220A 


B7 


OR 


A 


MORE DATA 


220B 


C29622 


JP 


NZ,2296H 


IF READ 


220E 


3AA940 


LD 


A, (40A9H) 


OD 


2211 


B7 


OR 


A 


ERROR 


2212 


1E06 


LD 


E, 06H 


IF 


2214 


CAA219 


JP 


Z,19A2H 


TAPE 


2217 


3E3F 


LD 


A,3FH 


PRINT 


2219 


CD2A03 


CALL 


03 2AH 


11 9 9 11 


221C 


CDB31B 


CALL 


1BB3H 


AND INPUT MORE DATA 


221F 


Dl 


POP 


DE 


CLEAR 


2220 


CI 


POP 


BC 


STACK 


2221 


DABEID 


JP 


C, IDBEH 


STOP IF <BREAK> 


2224 


23 


INC 


HL 


WAS 


2225 


7E 


LD 


A, (HL) 


INPUT 


2226 


B7 


OR 


A 


LINE 


2227 


2B 


DEC 


HL 


NULL? 


2228 


C5 


PUSH 


BC 


FIX STACK 


2229 


CA041F 


JP 


Z, 1F04H 


IGNORE REST OF REQUEST IF SO 


222C 


D5 


PUSH 


DE 


FIX STACK 


222D 


CDDC41 


CALL 


41DCH 


DOS LINK 


2230 


E7 


RST 


20H 


GET TYPE OF ACCUM 


2231 


F5 


PUSH 


AF 


SAVE TYPE 


2232 


2019 


JR 


NZ,224DH 


JUMP IF NOT STRING 


2234 


D7 


RST 


lOH 


GET NEXT CHARACTER. 


2235 


57 


LD 


D,A 


DELIMITERS 


2236 


47 


LD 


B,A 


ARE DOUBLE QUOTES 


2237 


FE22 


CP 


22H 


DOUBLE QUOTES? 


2239 


2805 


JR 


Z,2240H 


SKIP IF SO 


223B 


163A 


LD 


D,3AH 


DELIMITER # 2 = " : " 


223D 


062C 


LD 


B,2CH 


DELIMITER # 1 = " , " 


223F 


2B 


DEC 


HL 


BACK UP 


2240 


CD6928 


CALL 


2869H 


GET STRING FROM DATA 


2243 


Fl 


POP 


AF 


RESTORE TYPE OF ACCUM 


2244 


EB 


EX 


DE,HL 


SAVE DATA POINTER 


2245 


215A22 


LD 


HL , 2 2 5 AH 


SET RETURN TO 22 5AH 


2248 


E3 


EX 


(SP) ,HL 


AND RESTORE PROGRAM POINTER 
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2249 


D5 


PUSH 


DE 


SAVE DATA POINTER 


224A 


C3331F 


JP 


1F33H 


ASSIGN DATA TO VARIABLE 


224D 


D7 


RST 


lOH 


GET NEXT CHARACTER 


224E 


Fl 


POP 


AF 


GET TYPE 


224F 


F5 


PUSH 


AF 


OF AC CUM 


2250 


014322 


LD 


BC,2243H 


SET RETURN 


2253 


C5 


PUSH 


BC 


TO 2243H 


2254 


DA6C0E 


JP 


C, 0E6CH 


DECODE S.P. & INTEGERS 


2257 


D2650E 


JP 


NC, 0E65H 


DECODE D.P. NUMBERS 


225A 


2B 


DEC 


HL 


BACK UP DATA POINTER 


225B 


D7 


RST 


lOH 


GET NEXT CHARACTER 


225C 


2805 


JR 


Z,2263H 


SKIP IF END OF LINE 


225E 


FE2C 


CP 


2CH 


COMMA? 


2260 


C27F21 


JP 


NZ,217FH 


ERROR IF NOT 


2263 


E3 


EX 


(SP) ,HL 


SAVE DATA POINTER. GET TEXT POINTER 


2264 


2B 


DEC 


HL 


BACKUP 


2265 


D7 


RST 


lOH 


GET CHARACTER. 


2266 


C2FB21 


JP 


NZ,21FBH 


LOOP BACK IF MORE REQUESTED 


2269 


Dl 


POP 


DE 


GET DATA POINTER 


226A 


00 


NOP 




DELETED 


226B 


00 


NOP 




ROUTINE 


226C 


00 


NOP 






226D 


00 


NOP 






226E 


00 


NOP 






226F 


3ADE4 


LD 


A, (40DEH) 


READ? 


2272 


B7 


OR 


A 




2273 


EB 


EX 


DE,HL 


HL => DATA 


2274 


C2961D 


JP 


NZ, 1D96H 


SAVE POINTER & RETURN IF SO 


2277 


D5 


PUSH 


DE 


SAVE PROGRAM POINTER 


2278 


CDDF41 


CALL 


41DFH 


DOS LINK 


227B 


B6 


OR 


(HL) 


ANY MORE DATA? 


227C 


218622 


LD 


HL,2286H 


PRINT "?EXTRA IGNORED" 


227F 


C4A728 


CALL 


NZ,2 8A7H 


IF THERE WAS 


2282 


El 


POP 


HL 


RESTORE PROGRAM POINTER 


2283 


C36921 


JP 


2169H 


CLEAN UP & RETURN 


2286 


3F4 578 74 72 612 06 96 76E6F72 6 564 


"?EXTRA IGNORED" 


2294 


ODOO 






OD 00 


2296 


CD051F 


CALL 


1F05H 


SCAN PAST STATEMENT 


2299 


B7 


OR 


A 


END OF LINE? 


229A 


2012 


JR 


NZ,2 2AEH 


SKIP IF NOT 


229C 


23 


INC 


HL 


END OF 


229D 


7E 


LD 


A, (HL) 


PROGRAM? 


229E 


23 


INC 


HL 




229F 


B6 


OR 


(HL) 




22A0 


1E06 


LD 


E, 06H 


OD ERROR 


22A2 


CAA219 


JP 


Z,19A2H 


IF SO 


22A5 


23 


INC 


HL 


GET 


22A6 


5E 


LD 


E, (HL) 


CURRENT 


22A7 


23 


INC 


HL 


DATA 


22A8 


56 


LD 


D, (HL) 


LINE # 


22A9 


EB 


EX 


DE,HL 


SAVE LINE # 


22AA 


22DA4 


LD 


(40DAH) ,HL 




2 2 AD 


EB 


EX 


DE,HL 




22AE 


D7 


RST 


lOH 


GET TOKEN 


22AF 


FE88 


CP 


88H 


DATA? 


22B1 


20E3 


JR 


NZ,2296H 


LOOP IF NOT 
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22B3 


C32D22 


JP 
NEXT 


222DH 


CONTINUE . 


22B6 


110000 


LD 


DE, OOOOH 


CLEAR DE (NO INDEX) 


22B9 


C40D26 


CALL 


NZ,260DH 


GET PARAM, IF ANY 


22BC 


22DF40 


LD 


(40DFH) ,HL 


SAVE POSITION IN TEXT 


22BF 


CD3619 


CALL 


1936H 


SEARCH FOR FOR DATA 


22C2 


C29D19 


JP 


NZ, 199DH 


NF ERROR IF NOT FOUND 


22C5 


F9 


LD 


SP,HL 


POSITION STACK 


22C6 


22E840 


LD 


(40E8H) ,HL 


SAVE STACK POSITION 


22C9 


D5 


PUSH 


DE 


SAVE COUNTER POINTER 


22CA 


7E 


LD 


A, (HL) 


GET TYPE OF COUNTER 


22CB 


23 


INC 


HL 


NEXT BYTE 


22CC 


F5 


PUSH 


AF 


SAVE SIGN OF STEP 


22CD 


D5 


PUSH 


DE 


SAVE COUNTER POINTER 


22CE 


7E 


LD 


A, (HL) 


GET TYPE OF COUNTER 


22CF 


23 


INC 


HL 


NEXT BYTE 


22D0 


B7 


OR 


A 


TEST TYPE 


22D1 


FAEA22 


JP 


M,22EAH 


JUMP IF INTEGER 


22D4 


CDB10 9 


CALL 


09B1H 


ACCUM = STEP 


22D7 


E3 


EX 


(SP) ,HL 


SAVE FOR DATA POINTER 


22D8 


E5 


PUSH 


HL 


SAVE COUNTER POINTER 


22D9 


CD0B07 


CALL 


070BH 


ACCUM = ACCUM + COUNTER 


22DC 


El 


POP 


HL 


GET COUNTER POINTER 


22DD 


CDCB09 


CALL 


9CBH 


SAVE UPDATED COUNTER 


22E0 


El 


POP 


HL 


GET FOR DATA POINTER 


22E1 


CDC2 9 


CALL 


09C2H 


BCDE = UPPER LIMIT (TO) 


22E4 


E5 


PUSH 


HL 


SAVE FOR DATA POINTER 


22E5 


CDOCOA 


CALL 


OAOCH 


COMPARE. DONE YET? 


22E8 


1829 


JR 


2313H 


CONTINUE 


22EA 


23 


INC 


HL 


LOAD 


22EB 


23 


INC 


HL 


STEP 


22EC 


23 


INC 


HL 


INTO 


22ED 


23 


INC 


HL 


BC 


22EE 


4E 


LD 


C, (HL) 




22EF 


23 


INC 


HL 




22F0 


46 


LD 


B, (HL) 




22F1 


23 


INC 


HL 




22F2 


E3 


EX 


(SP) ,HL 


LOAD 


22F3 


5E 


LD 


E, (HL) 


COUNTER 


22F4 


23 


INC 


HL 


INTO 


22F5 


56 


LD 


D, (HL) 


DE 


22F6 


E5 


PUSH 


HL 


SAVE VARIABLE & COUNTER POINTER 


22F7 


69 


LD 


L,C 


HL = 


22F8 


60 


LD 


H,B 


BC 


22F9 


CDD2 0B 


CALL 


0BD2H 


HL = COUNTER + STEP 


22FC 


3AAF4 


LD 


A, (40AFH) 


OV 


22FF 


FE04 


CP 


04H 


ERROR 


2301 


CAB2 07 


JP 


Z, 07B2H 


IF ANSWER S.P. 


2304 


EB 


EX 


DE,HL 


SAVE COUNTER IN DE 


2305 


El 


POP 


HL 


GET COUNTER POINTER 


2306 


72 


LD 


(HL) ,D 


SAVE 


2307 


2B 


DEC 


HL 


COUNTER 


2308 


73 


LD 


(HL) ,E 


TO MEMORY 


2309 


El 


POP 


HL 


GET FOR DATA POINTER 


2 3 0A 


D5 


PUSH 


DE 


SAVE COUNTER 


230B 


5E 


LD 


E, (HL) 


GET 
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230C 


23 


INC 


HL 


TOO 


230D 


56 


LD 


D, (HL) 


VALUE 


230E 


23 


INC 


HL 




230F 


E3 


EX 


(SP) ,HL 


SAVE FOR DATA POINTER. GET COi 


2310 


CD3 9 0A 


CALL 


0A3 9H 


COMPARE. DONE YET? 


2313 


El 


POP 


HL 


GET FOR DATA POINTER 


2314 


CI 


POP 


EC 


GET SIGN OF STEP 


2315 


90 


SUB 


B 


A = SIGN OF STEP 


2316 


CDC209 


CALL 


09C2H 


CLEAR STACK AND GET LOOP STAR' 


2319 


2809 


JR 


Z,2324H 


JUMP IF DONE 


231B 


EB 


EX 


DE,HL 


SAVE LOOP 


231C 


22A240 


LD 


(40A2H) ,HL 


STARTING LINE # 


231F 


69 


LD 


L,C 


SET LOOP 


2320 


60 


LD 


H,B 


STARTING POSITION 


2321 


C31A1D 


JP 


IDIAH 


RE -EXECUTE LOOP 


2324 


F9 


LD 


SP,HL 


CLEAR FOR DATA FROM STACK 


2325 


22E840 


LD 


(40E8H) ,HL 


SAVE NEW STACK POSITION 


2328 


2ADF4 


LD 


HL, (40DFH) 


GET POSITION IN TEXT 


232B 


7E 


LD 


A, (HL) 


GET NEXT CHARACTER 


232C 


FE2C 


CP 


2CH 


COMMA? 


232E 


C21E1D 


JP 


NZ, IDIEH 


NEXT STATEMENT IF NOT 


2331 


D7 


RST 


lOH 


GET NEXT CHARACTER 


2332 


CDB922 


CALL 


22B9H 


DO ANOTHER NEXT. 






EXPRESSION EVALUATION 


2335 


CF 


RST 


08H 


SYNTAX ERROR 


2336 


28 


11 { II 




IF NEXT CHARACTER NOT "(" 


2337 


2B 


DEC 


HL 


BACKUP 


2338 


1600 


LD 


D, OOH 


PRIORITY = 


233A 


D5 


PUSH 


DE 


SAVE PRIORITY 


233B 


OEOl 


LD 


C, OIH 


REQUEST ONE BYTE 


233D 


CD6319 


CALL 


1963H 


CHECK FOR ENOUGH SPACE 


2340 


CD9F24 


CALL 


249FH 


EVALUATE ITEM 


2343 


22F340 


LD 


(40F3H) ,HL 


SAVE POSITION 


2346 


2AF34 


LD 


HL, (40F3H) 


GET POSITION 


2349 


CI 


POP 


BC 


GET PRIORITY 


234A 


7E 


LD 


A, (HL) 


GET OPERATOR 


234B 


1600 


LD 


D, OOH 


GET OPERATOR PRIORITY = 


234D 


D6D4 


SUB 


0D4H 


ADJUST TO RELATIONAL OPERATOR 


234F 


3813 


JR 


C,2364H 


JUMP IF NOT RELATIONAL 


2351 


FE03 


CP 


03H 


CHECK AGAIN 


2353 


300F 


JR 


NC,2364H 


JUMP IF NOT RELATIONAL 


2355 


FEOl 


CP 


OIH 


COMPUTE 


2357 


17 


RLA 




OPERATOR 


2358 


AA 


XOR 


D 


PRIORITY 


2359 


BA 


CP 


D 




235A 


57 


LD 


D,A 


SAVE PRIORITY 


235B 


DA9719 


JP 


C, 1997H 


SYNTAX ERROR IF BAD 


235E 


22D840 


LD 


(40D8H) ,HL 


SAVE POSITION 


2361 


D7 


RST 


lOH 


GET NEXT CHARACTER 


2362 


18E9 


JR 


234DH 


CHECK FOR SECOND CHARACTER. 


2364 


7A 


LD 


A,D 


WAS THERE A 


2365 


B7 


OR 


A 


RELATIONAL OPERATOR? 


2366 


C2EC23 


JP 


NZ,23ECH 


JUMP IF SO 


2369 


7E 


LD 


A, (HL) 


GET CHARACTER. 


236A 


22D840 


LD 


(40D8H) ,HL 


SAVE POSITION 


236D 


D6CD 


SUB 


OCDH 


MATHEMATICAL OPERATOR? 
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236F 


D8 


RET 


C 


RETURN IF NOT 


2370 


FE07 


CP 


07H 


CHECK AGAIN 


2372 


DO 


RET 


NC 


RETURN IF NOT 


2373 


5F 


LD 


E,A 


SAVE # OF OPERATOR 


2374 


3AAF4 


LD 


A, (40AFH) 


GET TYPE OF ACCUM 


2377 


D603 


SUB 


03H 


ADJUST TYPE 


2379 


B3 


OR 


E 


COMBINE WITH # OF OPERATOR 


2 3 7A 


CA8F2 9 


JP 


Z,298FH 


JUMP IF STRING ADDITION 


237D 


219A18 


LD 


HL, 189AH 


HL => 


2380 


19 


ADD 


HL,DE 


OPERATOR PRIORITY 


2381 


78 


LD 


A,B 


GET PREVIOUS PRIORITY 


2382 


56 


LD 


D, (HL) 


GET NEW PRIORITY 


2383 


BA 


CP 


D 


COMPARE OLD & NEW 


2384 


DO 


RET 


NC 


RETURN IF OLD HIGHER 


2385 


C5 


PUSH 


BC 


SAVE PREVIOUS PRIORITY 


2386 


014623 


LD 


BC,2346H 


SET RETURN 


2389 


C5 


PUSH 


BC 


THROUGH EVALUATOR 


238A 


7A 


LD 


A,D 


GET NEW PRIORITY 


238B 


FE7F 


CP 


7FH 


EXPONENTIATION? 


238D 


CAD423 


JP 


Z,23D4H 


JUMP IF SO 


2390 


FE51 


CP 


51H 


LOGICAL OPERATOR? 


2392 


DAE12 3 


JP 


C,23E1H 


JUMP IF SO 


2395 


212141 


LD 


HL,4121H 


HL => ACCUM 


2398 


B7 


OR 


A 


CLEAR FLAGS 


2399 


3AAF4 


LD 


A, (40AFH) 


GET TYPE OF ACCUM 


239C 


3D 


DEC 


A 


ADJUST 


239D 


3D 


DEC 


A 


TYPE 


239E 


3D 


DEC 


A 




239F 


CAF6 0A 


JP 


Z, 0AF6H 


TM ERROR IF STRING 


2 3A2 


4E 


LD 


C, (HL) 


GET INTEGER PART 


2 3 A3 


23 


INC 


HL 


OF ACCUM 


2 3A4 


46 


LD 


B, (HL) 


TO THE STACK 


2 3A5 


C5 


PUSH 


BC 




23A6 


FAC523 


JP 


M,23C5H 


JUMP IF INTEGER 


23A9 


23 


INC 


HL 


GET TOP PART OF 


23AA 


4E 


LD 


C, (HL) 


FLOATING POINT 


2 3AB 


23 


INC 


HL 


NUMBER IN ACCUM 


2 3 AC 


46 


LD 


B, (HL) 


TO THE STACK 


2 3 AD 


C5 


PUSH 


BC 




23AE 


F5 


PUSH 


AF 


SAVE STATUS 


23AF 


B7 


OR 


A 


TEST IT 


23B0 


E2C423 


JP 


PO,23C4H 


JUMP IF S.P. 


23B3 


Fl 


POP 


AF 


RESTORE STATUS 


23B4 


23 


INC 


HL 


NEXT BYTE 


23B5 


3803 


JR 


C,2 3BAH 


SKIP IF NOT D.P. 


23B7 


211D41 


LD 


HL,411DH 


POSITION TO SAVE REST OF ACCUM 


2 3BA 


4E 


LD 


C, (HL) 


SAVE 


23BB 


23 


INC 


HL 


BOTTOM 


23BC 


46 


LD 


B, (HL) 


FOUR 


23BD 


23 


INC 


HL 


BYTES 


23BE 


C5 


PUSH 


BC 


OF 


23BF 


4E 


LD 


C, (HL) 


ACCUM 


23C0 


23 


INC 


HL 




23C1 


46 


LD 


B, (HL) 




23C2 


C5 


PUSH 


BC 




23C3 


06 






MASK TO 23C5H 


23C4 


Fl 


POP 


AF 


CLEAR STACK GET TYPE 
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23C5 


C603 


ADD 


A, 03H 


23C7 


4B 


LD 


C,E 


23C8 


47 


LD 


B,A 


23C9 


C5 


PUSH 


BC 


23CA 


010624 


LD 


BC,2406H 


23CD 


C5 


PUSH 


BC 


23CE 


2AD84 


LD 


HL, (40D8H) 


23D1 


C33A23 


JP 


2 3 3AH 


23D4 


CDBIOA 


CALL 


OABIH 


23D7 


CDA4 09 


CALL 


9A4H 


23DA 


01F213 


LD 


BC, 13F2H 


2 3DD 


167F 


LD 


D,7FH 


23DF 


18EC 


JR 


2 3CDH 


23E1 


D5 


PUSH 


DE 


23E2 


CD7F0A 


CALL 


0A7FH 


23E5 


Dl 


POP 


DE 


23E6 


E5 


PUSH 


HL 


23E7 


01E925 


LD 


BC,25E9H 


23EA 


18E1 


JR 


2 3CDH 


23EC 


78 


LD 


A,B 


23ED 


FE64 


CP 


64H 


23EF 


DO 


RET 


NC 


23F0 


C5 


PUSH 


BC 


23F1 


D5 


PUSH 


DE 


23F2 


110464 


LD 


DE, 6404H 


23F5 


21B825 


LD 


HL,25B8H 


23F8 


E5 


PUSH 


HL 


23F9 


E7 


RST 


20H 


23FA 


C29523 


JP 


NZ,2395H 


23FD 


2A2141 


LD 


HL, (4121H) 


2400 


E5 


PUSH 


HL 


2401 


018C25 


LD 


BC,258CH 


2404 


18C7 


JR 


2 3CDH 


2406 


CI 


POP 


BC 


2407 


79 


LD 


A,C 


2408 


32B040 


LD 


(40B0H) ,A 


240B 


78 


LD 


A,B 


240C 


FE08 


CP 


08H 


240E 


2828 


JR 


Z,2438H 


2410 


3AAF4 


LD 


A, (40AFH) 


2413 


FE08 


CP 


08H 


2415 


CA6024 


JP 


Z,2460H 


2418 


57 


LD 


D,A 


2419 


78 


LD 


A,B 


241A 


FE04 


CP 


04H 


241C 


CA7224 


JP 


Z,2472H 


241F 


7A 


LD 


A,D 


2420 


FE03 


CP 


03H 


2422 


CAF6 0A 


JP 


Z,0AF6H 


2425 


D27C24 


JP 


NC,247CH 


2428 


21BF18 


LD 


HL,18BFH 


242B 


0600 


LD 


B, OOH 


242D 


09 


ADD 


HL,BC 


242E 


09 


ADD 


HL,BC 


242F 


4E 


LD 


C, (HL) 


2430 


23 


INC 


HL 



ADJUST TYPE 

SAVE PRIORITY 

& TYPE 

ON STACK 

SET RETURN THROUGH 24 06H 

SAVE RETURN 

GET POSITION 

CONTINUE. EVALUATE EXPRESSION 

CONVERT ACCUM TO S.P. 

PUT ACCUM ON STACK 

RETURN THROUGH EXPONENTIATION 

PRIORITY = 7FH 

EVALUATE EXPONENT & RETURN 

SAVE PRIORITY 

HL = FIRST ARGUMENT 

RESTORE PRIORITY 

SAVE FIRST ARGUMENT 

RETURN THROUGH LOGIC 

ROUTINE AFTER EVALUATION 

OF SECOND ARGUMENT 

GET OLD PRIORITY 

IF IT WAS NOT 

RELATIONAL, EXIT. 

SAVE OLD PRIORITY 

SAVE NEW PRIORITY 

SET PRIORITY 

RETURN THROUGH 

RELATIONAL EVALUATE 

CHECK TYPE OF ACCUM 

JUMP IF NOT STRING 

GET VALUE OF ACCUM 

SAVE FIRST ARGUMENT 

EVALUATE SECOND 

ARGUMENT & PROCESS 

GET TYPE OF FIRST ARGUMENT 

SAVE OPERATION # 

GET FIRST TYPE 

DOUBLE PRECISION? 

JUMP IF SO 

GET SECOND TYPE 

DOUBLE PRECISION 

JUMP IF SO 

SAVE SECOND TYPE 

GET FIRST TYPE 

SINGLE PRECISION? 

JUMP IF SO 

GET SECOND TYPE 

STRING? 

TM ERROR IF SO 

JUMP IF S.P. 

HL => INTEGER OPERATIONS TABLE 

HL => 

OPERATION 

ADDRESS 

BC = OPERATION 

ADDRESS 



MOD III ROM COMMENTED (C) 1981 SOFT SECTOR MARKETING INC. 

PAGE 93 



2431 


46 


LD 


B, (HL) 






2432 


Dl 


POP 


DE 




GET FIRST ARGUMENT 


2433 


2A2141 


LD 


HL, (4121H) 


GET SECOND ARGUMENT 


2436 


C5 


PUSH 


BC 




SAVE OPERATION 


2437 


C9 


RET 






ADDRESS & GO TO IT 


2438 


CDDBOA 


CALL 


OADBH 




CONVERT SECOND ARGUMENT TO D.P. 


243B 


CDFC09 


CALL 


9FCH 




MOVE IT TO ACCUM 2 


243E 


El 


POP 


HL 




LOAD 


243F 


221F41 


LD 


(411FH) , 


, HL 


FIRST ARGUMENT 


2442 


El 


POP 


HL 




INTO ACCUM 


2443 


221D41 


LD 


(411DH) , 


, HL 


FROM STACK 


2446 


CI 


POP 


BC 






2447 


Dl 


POP 


DE 






2448 


CDB4 9 


CALL 


09B4H 






244B 


CDDBOA 


CALL 


OADBH 




CONVERT ACCUM TO D.P. 


244E 


21AB18 


LD 


HL, 18ABH 


HL => D.P. OPERATOR TABLE 


2451 


3AB040 


LD 


A, (40B0H) 


GET OPERATOR # 


2454 


07 


RLCA 






TIMES 2 


2455 


C5 


PUSH 


BC 




SAVE BC 


2456 


4F 


LD 


C,A 




HL => OPERATOR 


2457 


0600 


LD 


B, OOH 




ADDRESS 


2459 


09 


ADD 


HL,BC 






245A 


CI 


POP 


BC 




RESTORE BC 


245B 


7E 


LD 


A, (HL) 




HL = OPERATOR 


245C 


23 


INC 


HL 




ADDRESS 


245D 


66 


LD 


H, (HL) 






245E 


6F 


LD 


L,A 






245F 


E9 


JP 


(HL) 




EXECUTE OPERATOR 


2460 


C5 


PUSH 


BC 




SAVE SECOND ARGUMENT TYPE 


2461 


CDFC09 


CALL 


9FCH 




ACCUM 2 = FIRST ARGUMENT 


2464 


Fl 


POP 


AF 




GET SECOND ARGUMENT TYPE 


2465 


32AF40 


LD 


(40AFH) , 


,A 


SET TYPE OF ACCUM 


2468 


FE04 


CP 


04H 




SINGLE PRECISION? 


246A 


2 8DA 


JR 


Z,2446H 




GET SECOND ARGUMENT & CONVERT I 


246C 


El 


POP 


HL 




SAVE INTEGER ARGUMENT 


246D 


222141 


LD 


(4121H) , 


, HL 


IN ACCUM 


2470 


18D9 


JR 


244BH 




CONVERT & EXECUTE OPERATOR 


2472 


CDBIOA 


CALL 


OABIH 




CONVERT FIRST ARGUMENT TO S.P. 


2475 


CI 


POP 


BC 




GET SECOND 


2476 


Dl 


POP 


DE 




ARGUMENT 


2477 


21B518 


LD 


HL, 18B5H 


HL => S.P.O. OPERATOR TABLE 


247A 


18D5 


JR 


2451H 




EXECUTE OPERATOR 


247C 


El 


POP 


HL 




GET FIRST ARGUMENT 


247D 


CDA4 9 


CALL 


9A4H 




SAVE SECOND ARGUMENT 


2480 


CDCFOA 


CALL 


OACFH 




ACCUM = CSNG (FIRST ARGUMENT) 


2483 


CDBF09 


CALL 


09BFH 




BCDE = SECOND ARGUMENT 


2486 


El 


POP 


HL 




ACCUM = 


2487 


222341 


LD 


(4123H) , 


, HL 


FIRST 


248A 


El 


POP 


HL 




ARGUMENT 


248B 


222141 


LD 


(4121H) , 


,HL 




248E 


18E7 


JR 


2477H 




EXECUTE OPERATION 






INTEGER DIVISION ROUTINE 


2490 


E5 


PUSH 


HL 




SAVE SECOND ARGUMENT 


2491 


EB 


EX 


DE,HL 




AC CUM = 


2492 


CDCFOA 


CALL 


OACFH 




CSNG (FIRST ARGUMENT) 


2495 


El 


POP 


HL 




GET SECOND ARGUMENT 
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2496 


CDA4 9 


CALL 


9A4H 


2499 


CDCFOA 


CALL 


OACFH 


249C 


C3A008 


JP 


08A0H 


249F 


D7 


RST 


lOH 


24A0 


1E28 


LD 


E,28H 


24A2 


CAA219 


JP 


Z, 19A2H 


24A5 


DA6C0E 


JP 


C,0E6CH 


24A8 


CD3D1E 


CALL 


1E3DH 


24AB 


D24025 


JP 


NC,2540H 


24AE 


FECD 


CP 


OCDH 


24B0 


28ED 


JR 


Z,249FH 


24B2 


FE2E 


CP 


2 EH 


24B4 


CA6C0E 


JP 


Z, 0E6CH 


24B7 


FECE 


CP 


OCEH 


24B9 


CA3225 


JP 


Z,2532H 


24BC 


FE22 


CP 


22H 


24BE 


CA6 62 8 


JP 


Z,2866H 


24C1 


FECB 


CP 


OCBH 


24C3 


CAC42 5 


JP 


Z,25C4H 


24C6 


FE26 


CP 


26H 


24C8 


CA9441 


JP 


Z,4194H 


24CB 


FEC3 


CP 


0C3H 


24CD 


2 0A 


JR 
ERR 


NZ,24D9H 


24CF 


D7 


RST 


lOH 


24D0 


3A9A4 


LD 


A, (409AH) 


24D3 


E5 


PUSH 


HL 


24D4 


CDF827 


CALL 


27F8H 


24D7 


El 


POP 


HL 


24D8 


C9 


RET 
ERL 




24D9 


FEC2 


CP 


0C2H 


24DB 


200A 


JR 


NZ,24E7H 


24DD 


D7 


RST 


lOH 


24DE 


E5 


PUSH 


HL 


24DF 


2 AEA4 


LD 


HL, (40EAH) 


24E2 


CD660C 


CALL 


0C66H 


24E5 


El 


POP 


HL 


24E6 


C9 


RET 
VARPTR 




24E7 


FECO 


CP 


OCOH 


24E9 


2014 


JR 


NZ,24FFH 


24EB 


D7 


RST 


lOH 


24EC 


CF 


RST 


08H 


24ED 


28 


II / II 




24EE 


CD0D26 


CALL 


2 6 0DH 


24F1 


CF 


RST 


08H 


24F2 


29 


II \ II 




24F3 


E5 


PUSH 


HL 


24F4 


EB 


EX 


DE,HL 


24F5 


7C 


LD 


A,H 


24F6 


B5 


OR 


L 


24F7 


CA4A1E 


JP 


Z, 1E4AH 


24FA 


CD9A0A 


CALL 


0A9AH 



SAVE FIRST ARGUMENT ON STACK 

ACCUM = CSNG (SECOND ARGUMENT) 

ACCUM = FIRST/SECOND 

GET NEXT TOKEN 

MO ERROR 

IF END OF LINE 

DECODE # IF NUMERIC 

A-Z? 

JUMP IF A VARIABLE 

+ TOKEN? 

JUMP IF SO 

DECIMAL POINT? 

DECODE # IF SO 

- TOKEN? 

JUMP IF SO 

DOUBLE QUOTES? 

JUMP IF SO 

NOT TOKEN? 

INVERT # IF SO 

AMPERSAND? 

DECODE HEX NUMBER IF SO 

ERR TOKEN? 

JUMP IF NOT 



GET NEXT CHARACTER 

GET ERR CODE 

SAVE POSITION 

RESULT TO INTEGER FORM 

RESTORE POSITION 

DONE 



ERL TOKEN? 

JUMP IF NOT 

GET NEXT CHARACTER 

SAVE POSITION 

GET ERL 

RETURN AS S.P. NUMBER 

RESTORE POSITION 

DONE 



VARPTR TOKEN? 

JUMP IF NOT 

GET NEXT CHARACTER 

SYNTAX ERROR IF 

NEXT CHARACTER NOT 

GET VARIABLE POINTER 

SYNTAX ERROR IF 

NEXT CHARACTER NOT ° ) ° 

SAVE POSITION 

HL => VARIABLE 

VARIABLE NOT FOUND? 

FC ERROR IF SO 

RETURN POINTER AS INTEGER 
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24FD 


El 


POP 


HL 


RESTORE POSITION 


24FE 


C9 


RET 




DONE 


24FF 


FECI 


CP 


OCIH 


USR TOKEN? 


2501 


CAFE2 7 


JP 


Z,27FEH 


JUMP IF SO 


2504 


FEC5 


CP 


0C5H 


INSTR TOKEN? 


2506 


CA9D41 


JP 


Z,419DH 


JUMP IF SO 


2509 


FEC8 


CP 


0C8H 


MEM TOKEN? 


250B 


CAC927 


JP 


Z,27C9H 


JUMP IF SO 


250E 


FEC7 


CP 


0C7H 


TIME$ TOKEN? 


2510 


CA7641 


JP 


Z,4176H 


JUMP IF SO 


2513 


FEC6 


CP 


0C6H 


POINT TOKEN? 


2515 


CA3201 


JP 


Z,0132H 


JUMP IF SO 


2518 


FEC9 


CP 


0C9H 


INKEY$ TOKEN? 


251A 


CA9D01 


JP 


Z, 019DH 


JUMP IF SO 


251D 


FEC4 


CP 


0C4H 


STRING$ TOKEN? 


251F 


CA2F2A 


JP 


Z,2A2FH 


JUMP IF SO 


2522 


FEBE 


CP 


OBEH 


FN TOKEN? 


2524 


CA5541 


JP 


Z,4155H 


JUMP IF SO 


2527 


D6D7 


SUB 


0D7H 


EMBEDDED FUNCTIONS? 


2529 


D24E25 


JP 


NC,254EH 


JUMP IF SO 


252C 


CD3523 


CALL 


2335H 


EVALUATE NESTED EXPRESSIONS 


252F 


CF 


RST 


08H 


SYNTAX ERROR IF 


2530 


29 


M \ II 




NEXT CHARACTER NOT " ) " 


2531 


C9 


RET 




DONE 


2532 


167D 


LD 


D,7DH 


PRIORITY = 7DH 


2534 


CD3A23 


CALL 


2 3 3AH 


EVALUATE EXPRESSION ON RIGHT 


2537 


2AF34 


LD 


HL, (40F3H) 


GET POSITION 


253A 


E5 


PUSH 


HL 


SAVE POSITION 


253B 


CD7B09 


CALL 


097BH 


INVERT SIGN OF ACCUM 


253E 


El 


POP 


HL 


RESTORE POSITION 


253F 


C9 


RET 




DONE 


2540 


CD0D26 


CALL 


2 6 0DH 


GET VARIABLE POINTER 


2543 


E5 


PUSH 


HL 


SAVE POSITION 


2544 


EB 


EX 


DE,HL 


DE => VARIABLE 


2545 


222141 


LD 


(4121H) ,HL 


ACCUM => VARIABLE 


2548 


E7 


RST 


20H 


CHECK TYPE OF VARIABLE 


2549 


C4F709 


CALL 


NZ,09F7H 


MOVE DATA TO ACCUM IF NOT STRING 


254C 


El 


POP 


HL 


RESTORE POSITION 


254D 


C9 


RET 




DONE 


254E 


0600 


LD 


B,OOH 


BC = 


2550 


07 


RLCA 




OFFSET 


2551 


4F 


LD 


C,A 


IN FUNCTION TABLE 


2552 


C5 


PUSH 


BC 


SAVE OFFSET 


2553 


D7 


RST 


lOH 


GET NEXT CHARACTER. 


2554 


79 


LD 


A,C 


GET OFFSET 


2555 


FE41 


CP 


41H 


SINGLE PARAMETER FUNCTION? 


2557 


3816 


JR 


C,256FH 


JUMP IF SO 


2559 


CD3523 


CALL 


2335H 


EVALUATE FIRST EXPRESSION 


255C 


CF 


RST 


08H 


SYNTAX ERROR IF 


255D 


2C 


M M 




NEXT CHARACTER NOT COMMA 


255E 


CDF4 0A 


CALL 


0AF4H 


TM ERROR IF NOT STRING 


2561 


EB 


EX 


DE,HL 


SAVE POSITION 


2562 


2A2141 


LD 


HL, (4121H) 


GET STRING POINTER 


2565 


E3 


EX 


(SP) ,HL 


SAVE STRING POINTER 


2566 


E5 


PUSH 


HL 


SAVE OFFSET IN TABLE 


2567 


EB 


EX 


DE,HL 


RESTORE POSITION 


2568 


CD1C2B 


CALL 


2B1CH 


EVALUATE SECOND PARAM 
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256B 


EB 


EX 


DE,HL 


SAVE SECOND PARAM 


256C 


E3 


EX 


(SP) ,HL 


AND GET OFFSET IN TABLE 


256D 


1814 


JR 


2583H 


CONTINUE 


256F 


CD2C25 


CALL 


252CH 


EVALUATE EXPRESSION 


2572 


E3 


EX 


(SP) ,HL 


GET OFFSET. SAVE POSITION 


2573 


7D 


LD 


A,L 


PUT OFFSET IN A 


2574 


FEOC 


CP 


OCH 


INTEGER TYPE? 


2576 


3807 


JR 


C,257FH 


SKIP IF SO 


2578 


FEIB 


CP 


IBH 


INTEGER TYPE? 


257A 


E5 


PUSH 


HL 


SAVE POSITION 


257B 


DCBIOA 


CALL 


C, OABIH 


MAKE TYPE S.P. 


257E 


El 


POP 


HL 


RESTORE POSITION 


257F 


113E25 


LD 


DE,253EH 


SET RETURN ADDRESS 


2582 


D5 


PUSH 


DE 


TO 253EH 


2583 


010816 


LD 


BC,1608H 


BC => FUNCTION ADDRESS 


2586 


09 


ADD 


HL,BC 


HL => FUNCTION ADDRESS 


2587 


4E 


LD 


C, (HL) 


GET 


2588 


23 


INC 


HL 


FUNCTION 


2589 


66 


LD 


H, (HL) 


ADDRESS 


258A 


69 


LD 


L,C 




258B 


E9 


JP 


(HL) 


EXECUTE FUNCTION 


258C 


CDD72 9 


CALL 


29D7H 


GET PARAM #1 


258F 


7E 


LD 


A, (HL) 


A = LENGTH #1 


2590 


23 


INC 


HL 




2591 


4E 


LD 


C, (HL) 


BC => STRING #1 


2592 


23 


INC 


HL 




2593 


46 


LD 


B, (HL) 




2594 


Dl 


POP 


DE 


CLEAR STACK 


2595 


C5 


PUSH 


BC 


SAVE POINTER #1 


2596 


F5 


PUSH 


AF 


SAVE LENGTH #1 


2597 


CDDE2 9 


CALL 


2 9DEH 


GET PARAM #2 


259A 


Dl 


POP 


DE 


D = LENGTH #1 


259B 


5E 


LD 


E, (HL) 


E = LENGTH #2 


259C 


23 


INC 


HL 




259D 


4E 


LD 


C, (HL) 


BC => STRING #2 


259E 


23 


INC 


HL 




259F 


46 


LD 


B, (HL) 




2 5A0 


El 


POP 


HL 


HL => STRING #1 


2 5A1 


7B 


LD 


A,E 


BOTH STRINGS 


2 5A2 


B2 


OR 


D 


EQUAL LENGTH? 


2 5 A3 


C8 


RET 


Z 


RETURN MATCH IF SO 


2 5A4 


7A 


LD 


A,D 


STRING #1 


2 5A5 


D601 


SUB 


OIH 


NULL? 


2 5A7 


D8 


RET 


C 


RETURN #2 GREATER IF SO 


2 5A8 


AF 


XOR 


A 


STRING #2 


2 5A9 


BB 


CP 


E 


NULL? 


2 5AA 


3C 


INC 


A 




2 5AB 


DO 


RET 


NC 


RETURN #1 GREATER IF SO 


2 5 AC 


15 


DEC 


D 


ONE LESS 


2 5 AD 


ID 


DEC 


E 


CHARACTER TO CHECK 


2 5AE 


OA 


LD 


A, (BC) 


COMPARE CHARACTERS 


2 5AF 


BE 


CP 


(HL) 




25B0 


23 


INC 


HL 


POINT TO 


25B1 


03 


INC 


BC 


NEXT CHARACTERS 


25B2 


28ED 


JR 


Z,2 5A1H 


LOOP IF MATCH 


25B4 


3F 


CCF 




INVERT COMPARE RESULT 


25B5 


C36009 


JP 


0960H 


FINISH UP & RETURN 
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25B8 


3C 


INC 


A 


RELATIONAL 


25B9 


8F 


ADC 


A, A 


COMPARE 


2 5BA 


CI 


POP 


BC 


RESULT : 


25BB 


AO 


AND 


B 


A = FALSE 


25BC 


C6FF 


ADD 


A,OFFH 


A = -1 TRUE 


2 5BE 


9F 


SBC 


A, A 




25BF 


CD8D09 


CALL 


9 SDH 




25C2 


1812 


JR 
NOT 


25D6H 


CONTINUE 


25C4 


165A 


LD 


D,5AH 


SET PRIORITY 


25C6 


CD3A2 3 


CALL 


2 3 3AH 


EVALUATE ARGUMENT 


25C9 


CD7F0A 


CALL 


0A7FH 


HL = AC CUM 


25CC 


7D 


LD 


A,L 


L 


25CD 


2F 


CPL 




= 


25CE 


6F 


LD 


L,A 


NOT (L) 


25CF 


7C 


LD 


A,H 


H 


25D0 


2F 


CPL 




= 


25D1 


67 


LD 


H,A 


NOT (H) 


25D2 


222141 


LD 


(4121H) ,HL 


AC CUM = HL 


25D5 


CI 


POP 


BC 


CLEAR STACK 


25D6 


C34623 


JP 


2346H 


CONTINUE 






RST 2 OH ROUTINE 




25D9 


3AAF4 


LD 


A, (40AFH) 


GET TYPE FLAG 


25DC 


FE08 


CP 


08H 


DOUBLE PRECISION? 


2 5DE 


3005 


JR 


NC,25E5H 


SKIP IF SO 


25E0 


D603 


SUB 


03H 


ADJUST FLAG 


25E2 


B7 


OR 


A 


SET STATUS 


25E3 


37 


SCF 




SET CARRY (NOT D.P. ) 


25E4 


C9 


RET 




DONE 


25E5 


D603 


SUB 


03H 


ADJUST FLAG 


25E7 


B7 


OR 


A 


SET STATUS 


25E8 


C9 


RET 




DONE 






NET RESULT 










FLAG 






TYPE 


Z/NZ P/M 


C/NC PO/PE 




INTEGER NZ m**** C PE 






STRING 


Z**** p 


C PE 






S.P. 


NZ P 


C po**** 






D.P. 


NZ P 


NC**** PE 


25E9 


C5 


PUSH 


BC 


SAVE PRIORITY 


2 SEA 


CD7F0A 


CALL 


0A7FH 


HL = SECOND ARGUMENT 


2 5ED 


Fl 


POP 


AF 


GET PRIORITY 


25EE 


Dl 


POP 


DE 


GET FIRST ARGUMENT 


25EF 


01FA27 


LD 


BC,27FAH 


SET RETURN 


25F2 


C5 


PUSH 


BC 


THROUGH 2 7FAH 


25F3 


FE46 


CP 


46H 


OR? 


25F5 


2006 


JR 


NZ,25FDH 


JUMP IF NOT 


25F7 


7B 


LD 


A,E 


L 


25F8 


B5 


OR 


L 




25F9 


6F 


LD 


L,A 


L OR E 


2 5FA 


7C 


LD 


A,H 


A = 


25FB 


B2 


OR 


D 


H OR D 


25FC 


C9 


RET 




FINISH UP & RETURN 
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25FD 


7B 


LD 


A,E 


L 


25FE 


A5 


AND 


L 


= 


25FF 


6F 


LD 


L,A 


LAND E 


2600 


7C 


LD 


A,H 


A= 


2601 


A2 


AND 


D 


HAND D 


2602 


C9 


RET 




FINISH UP & RETURN 






DIM & 


LOCATE/CREATE 


VARIABLE 


2603 


2B 


DEC 


HL 


BACK UP 


2604 


D7 


RST 


lOH 


GET NEXT CHARACTER 


2605 


C8 


RET 


Z 


EXIT IF DONE 


2606 


CF 


RST 


08H 


SYNTAX ERROR IF 


2607 


2C 


11 II 




NEXT CHARACTER NOT COMMA 


2608 


010326 


LD 


BC,2603H 


RETURN FOR MORE 


260B 


C5 


PUSH 


BC 


WHEN DONE WITH ONE 


260C 


F6AF 


OR 


OAFH 


SET CREATE. MASK TO 2 6 0EH 


260D 


AF 


XOR 


A 


SET LOCATE 


260E 


32AE40 


LD 


(40AEH) ,A 


SAVE LOCATE /CREATE FLAG 


2611 


46 


LD 


B, (HL) 


GET FIRST CHARACTER. OF NAME 


2612 


CD3D1E 


CALL 


1E3DH 


A - Z? 


2615 


DA9719 


JP 


C, 1997H 


SYNTAX ERROR IF NOT 


2618 


AF 


XOR 


A 


SET SECOND 


2619 


4F 


LD 


C,A 


CHARACTER AS NULL 


2 61A 


D7 


RST 


lOH 


GET NEXT CHARACTER 


261B 


3805 


JR 


C,2622H 


GOOD IF NUMERIC JUMP 


261D 


CD3D1E 


CALL 


1E3DH 


A - Z? 


2620 


3809 


JR 


C,262BH 


NO GOOD IF NOT. JUMP 


2622 


4F 


LD 


C,A 


SAVE SECOND CHARACTER 


2623 


D7 


RST 


lOH 


GET NEXT CHARACTER 


2624 


38FD 


JR 


C,2623H 


GET MORE IF NUMERIC 


2626 


CD3D1E 


CALL 


1E3DH 


A - Z? 


2629 


30F8 


JR 


NC,2623H 


GET MORE IF SO 


262B 


115226 


LD 


DE,2652H 


RETURN 


262E 


D5 


PUSH 


DE 


THROUGH 2 6 52H 


262F 


1602 


LD 


D,02H 


TYPE = INTEGER 


2631 


FE25 


CP 


25H 


PERCENT SIGN? 


2633 


C8 


RET 


Z 


CONTINUE IF SO 


2634 


14 


INC 


D 


TYPE = STRING? 


2635 


FE24 


CP 


24H 


DOLLAR'S SIGN 


2637 


C8 


RET 


Z 


CONTINUE IF SO 


2638 


14 


INC 


D 


TYPE S.P. 


2639 


FE21 


CP 


21H 


EXCLAMATION POINT 


263B 


C8 


RET 


Z 


CONTINUE IF SO 


263C 


1608 


LD 


D, 08H 


TYPE D.P. 


263E 


FE23 


CP 


23H 


POUND'S SIGN? 


2640 


C8 


RET 


Z 


CONTINUE IF SO. 


2641 


78 


LD 


A,B 


GET FIRST CHARACTER 


2642 


D641 


SUB 


41H 


DE 


2644 


E67F 


AND 


7FH 


= 


2646 


5F 


LD 


E,A 


OFFSET IN 


2647 


1600 


LD 


D, OOH 


TYPE TABLE 


2649 


E5 


PUSH 


HL 


SAVE POSITION 


264A 


210141 


LD 


HL,4101H 


HL => TYPE TABLE 


264D 


19 


ADD 


HL,DE 


HL => VARIABLE TYPE 


264E 


56 


LD 


D, (HL) 


GET DEFAULT TYPE 


264F 


El 


POP 


HL 


RESTORE POSITION 


2650 


2B 


DEC 


HL 


BACK UP 
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2651 


C9 


RET 




2652 


7A 


LD 


A,D 


2653 


32AF40 


LD 


(40AFH) ,A 


2656 


D7 


RST 


lOH 


2657 


3ADC4 


LD 


A, (40DCH) 


2 6 5A 


B7 


OR 


A 


265B 


C26426 


JP 


NZ,2664H 


265E 


7E 


LD 


A, (HL) 


265F 


D628 


SUB 


28H 


2661 


CAE926 


JP 


Z,26E9H 


2664 


AF 


XOR 


A 


2665 


32DC40 


LD 


(40DCH) ,A 


2668 


E5 


PUSH 


HL 


2669 


D5 


PUSH 


DE 


266A 


2AF940 


LD 


HL, (40F9H) 


266D 


EB 


EX 


DE,HL 


266E 


2AFB4 


LD 


HL, (40FBH) 


2671 


DF 


RST 


18H 


2672 


El 


POP 


HL 


2673 


2819 


JR 


Z,268EH 


2675 


lA 


LD 


A, (DE) 


2676 


6F 


LD 


L,A 


2677 


BC 


CP 


H 


2678 


13 


INC 


DE 


2679 


200B 


JR 


NZ,2686H 


267B 


lA 


LD 


A, (DE) 


267C 


B9 


CP 


C 


267D 


2007 


JR 


NZ,2686H 


267F 


13 


INC 


DE 


2680 


lA 


LD 


A, (DE) 


2681 


B8 


CP 


B 


2682 


CACC2 6 


JP 


Z,26CCH 


2685 


3E 






2686 


13 


INC 


DE 


2687 


13 


INC 


DE 


2688 


E5 


PUSH 


HL 


2689 


2600 


LD 


H,OOH 


268B 


19 


ADD 


HL,DE 


268C 


18DF 


JR 


2 6 6DH 


268E 


7C 


LD 


A,H 


268F 


El 


POP 


HL 


2690 


E3 


EX 


(SP) ,HL 


2691 


F5 


PUSH 


AF 


2692 


D5 


PUSH 


DE 


2693 


11F124 


LD 


DE,24F1H 


2696 


DF 


RST 


18H 


2697 


2836 


JR 


Z,26CFH 


2699 


114325 


LD 


DE,2543H 


269C 


DF 


RST 


18H 


269D 


Dl 


POP 


DE 


269E 


2835 


JR 


Z,26D5H 


26A0 


Fl 


POP 


AF 


2 6A1 


E3 


EX 


(SP) ,HL 


2 6A2 


E5 


PUSH 


HL 


2 6A3 


C5 


PUSH 


BC 


2 6A4 


4F 


LD 


C,A 


2 6A5 


0600 


LD 


B,OOH 



CONTINUE . 

GET TYPE OF VARIABLE 

SAVE VARIABLE TYPE 

GET NEXT CHARACTER 

FOR IN 

PROGRESS? 

SKIP IF SO 

GET CHARACTER ( SUBSCRIPTED 

" (" (VARIABLE? 

JUMP IF SO 

CLEAR FOR 

FLAG 

SAVE POSITION 

SAVE TYPE 

DE => SIMPLE VARIABLE TABLE 

HL => ARRAY TABLE 

ARE THEY SAME? 

GET TYPE 

JUMP IF SO 

GET TYPE SF TABLE ENTRY 

SAVE IN L 

COMPARE WITH REQUESTED TYPE 

POINT TO ENTRY NAME 

JUMP IF WRONG TYPE 

GET FIRST CHARACTER OF ENTRY NAME 

SAME AS GIVEN? 

JUMP IF NOT 

POINT TO SECOND CHARACTER 

GET SECOND CHARACTER OF ENTRY NAME 

SAME AS GIVEN? 

JUMP IF SO 

MASK TO 2687H 

MOVE UP 

TO DATE 

SAVE TYPE 

MOVE PAST 

DATA 

CONTINUE SEARCH 

GET TYPE 

GET POSITION 

SAVE POSITION & GET RETURN 

SAVE TYPE 

SAVE POSITION IN TABLE 

CALLED BY 

VARPTR? 

EXIT IF SO (NOT FOUND) 

CALLED BY 

EXPRESSION E VALUATOR? 

GET POSITION IN TABLE 

JUMP IF SO 

GET TYPE 

SAVE RETURN & GET POSITION 

SAVE POSITION 

SAVE VARIABLE TO FIND 

BC = TYPE 
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2 6A7 


C5 


PUSH 


BC 


2 6A8 


03 


INC 


BC 


2 6A9 


03 


INC 


BC 


26AA 


03 


INC 


BC 


2 6AB 


2AFD4 


LD 


HL, (40FDH) 


2 6AE 


E5 


PUSH 


HL 


2 6AF 


09 


ADD 


HL,BC 


26B0 


CI 


POP 


BC 


26B1 


E5 


PUSH 


HL 


26B2 


CD5519 


CALL 


1955H 


26B5 


El 


POP 


HL 


26B6 


22FD40 


LD 


(40FDH) ,HL 


26B9 


60 


LD 


H,B 


2 6BA 


69 


LD 


L,C 


26BB 


22FB40 


LD 


(40FBH) ,HL 


26BE 


2B 


DEC 


HL 


26BF 


3600 


LD 


(HL) ,00H 


26C1 


DF 


RST 


18H 


26C2 


2 0FA 


JR 


NZ,2 6BEH 


26C4 


Dl 


POP 


DE 


26C5 


73 


LD 


(HL) ,E 


26C6 


23 


INC 


HL 


26C7 


Dl 


POP 


DE 


26C8 


73 


LD 


(HL) ,E 


26C9 


23 


INC 


HL 


26CA 


72 


LD 


(HL) ,D 


26CB 


EB 


EX 


DE,HL 


26CC 


13 


INC 


DE 


26CD 


El 


POP 


HL 


26CE 


C9 


RET 




26CF 


57 


LD 


D,A 


26D0 


5F 


LD 


E,A 


26D1 


Fl 


POP 


AF 


26D2 


Fl 


POP 


AF 


26D3 


E3 


EX 


(SP) ,HL 


26D4 


C9 


RET 




26D5 


322441 


LD 


(4124H) ,A 


26D8 


CI 


POP 


BC 


26D9 


67 


LD 


H,A 


2 6DA 


6F 


LD 


L,A 


26DB 


222141 


LD 


(4121H) ,HL 


26DE 


E7 


RST 


20H 


26DF 


2006 


JR 


NZ,26E7H 


26E1 


212819 


LD 


HL, 1928H 


26E4 


222141 


LD 


(4121H) ,HL 


26E7 


El 


POP 


HL 


26E8 


C9 


RET 






E5 


SEARCH 


FOR ARRAY V 


26E9 


PUSH 


HL 


26EA 


2AAE4 


LD 


HL, (40AEH) 


26ED 


E3 


EX 


(SP) ,HL 


26EE 


57 


LD 


D,A 


26EF 


D5 


PUSH 


DE 


26F0 


C5 


PUSH 


BC 


26F1 


CD451E 


CALL 


1E45H 


26F4 


CI 


POP 


BC 



SAVE TYPE 

ADJUST 

TYPE 

HL => END OF ARRAYS 

SAVE END OF SOURCE 

HL => NEW END OF ARRAY 

BC => END OF ARRAYS 

SAVE NEW END OF ARRAYS 

MOVE ARRAYS UP 

GET END OF ARRAYS 

SAVE END OF ARRAYS 

HL => END OF 

VARIABLES 

SAVE END OF VARIABLES 

CLEAR TO OLD 

END OF VARIABLES 

DONE YET? 

LOOP IF NOT 

GET TYPE 

SAVE TYPE IN NEW ENTRY 

NEXT LOCATION 

GET VARIABLE NAME 

SAVE SECOND CHARACTER. 

NEXT LOCATION 

SAVE FIRST CHARACTER 

PUT LOCATION IN DE 

DE => VARIABLE DATA 

RESTORE POSITION 

DONE 

DE = = VARIABLE 

NOT FOUND 

CLEAR 

STACK 

GET POSITION & SAVE RETURN 

RETURN 

CLEAR EXPONENT OF ACCUM 

CLEAR STACK 

CLEAR VALUE OF ACCUM 



CHECK TYPE OF ACCUM 

SKIP IF NOT STRING 

GET ACCUM 

AS NULL STRING 

RESTORE POSITION 

CONTINUE 



SAVE POSITION 
GET LOCATION/CREATE FLAG 
RESTORE POSITION. SAVE FLAG 
ZERO SUBSCRIPTIONS SO FAR 
SAVE # OF SUBSCRIPTS 
SAVE VARIABLE NAME 
EVALUATE SUBSCRIPT 
RESTORE VARIABLE NAME 
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26F5 


Fl 


POP 


AF 


26F6 


EB 


EX 


DE,HL 


26F7 


E3 


EX 


(SP) ,HL 


26F8 


E5 


PUSH 


HL 


26F9 


EB 


EX 


DE,HL 


26FA 


3C 


INC 


A 


26FB 


57 


LD 


D,A 


26FC 


7E 


LD 


A, (HL) 


26FD 


FE2C 


CP 


2CH 


26FF 


28EE 


JR 


Z,26EFH 


2701 


CF 


RST 


08H 


2702 


29 


11 \ 11 




2703 


22F340 


LD 


(40F3H) ,HL 


2706 


El 


POP 


HL 


2707 


22AE40 


LD 


(40AEH) ,HL 


2 7 0A 


D5 


PUSH 


DE 


270B 


2AFB4 


LD 


HL, (40FBH) 


270E 


3E 






270F 


19 


ADD 


HL,DE 


2710 


EB 


EX 


DE,HL 


2711 


2AFD4 


LD 


HL, (40FDH) 


2714 


EB 


EX 


DE,HL 


2715 


DF 


RST 


18H 


2716 


3AAF4 


LD 


A, (40AFH) 


2719 


2827 


JR 


Z,2742H 


271B 


BE 


CP 


(HL) 


271C 


23 


INC 


HL 


271D 


2008 


JR 


NZ,2727H 


271F 


7E 


LD 


A, (HL) 


2720 


B9 


CP 


C 


2721 


23 


INC 


HL 


2722 


2004 


JR 


NZ,2728H 


2724 


7E 


LD 


A, (HL) 


2725 


B8 


CP 


B 


2726 


3E 






2727 


23 


INC 


HL 


2728 


23 


INC 


HL 


2729 


5E 


LD 


E, (HL) 


272A 


23 


INC 


HL 


272B 


56 


LD 


D, (HL) 


272C 


23 


INC 


HL 


272D 


20E0 


JR 


NZ,270FH 


272F 


3AAE4 


LD 


A, (40AEH) 


2732 


B7 


OR 


A 


2733 


1E12 


LD 


E,12H 


2735 


C2A219 


JP 


NZ, 19A2H 


2738 


Fl 


POP 


AF 


2739 


96 


SUB 


(HL) 


273A 


CA9527 


JP 


Z,2795H 


273D 


lElO 


LD 


E,10H 


273F 


C3A219 


JP 


19A2H 


2742 


77 


LD 


(HL) ,A 


2743 


23 


INC 


HL 


2744 


5F 


LD 


E,A 


2745 


1600 


LD 


D,OOH 


2747 


Fl 


POP 


AF 


2748 


71 


LD 


(HL) ,C 



RESTORE # SUBSCRIPTS 

HL = SUBSCRIPT 

GET FLAG. SAVE SUBSCRIPT 

SAVE FLAG 

HL = POSITION IN TEXT 

INCREMENT # 

OF SUBSCRIPTS 

GET NEXT CHARACTER 

COMMA? 

LOOP IF MORE SUBSCRIPTS 

SYNTAX ERROR IF 

NEXT CHARACTER NOT " ) " 

SAVE POSITION 

RESTORE FLAG 

SAVE FLAG 

SAVE # OF SUBSCRIPTS 

HL => ARRAY TABLE 

MASK TO 2 71 OH 

MOVE PAST ARRAY 

DE 

= > 

FREE MEMORY 

DONE CHECKING ARRAYS? 

GET TYPE OF ARRAY 

JUMP IF NOT FOUND 

ARRAY PROPER TYPE? 

NEXT BYTE 

SKIP IF NOT PROPER TYPE 

GET FIRST CHARACTER OF ENTRY 

COMPARE WITH GIVEN 

POINT TO NEXT BYTE 

SKIP IF NO MATCH 

GET SECOND CHARACTER 

COMPARE WITH GIVEN 

MASK TO 2 72 8H 

POINT TO NEXT BYTE 

POINT TO NEXT BYTE 

DE = SIZE OF 

ARRAY DATA SPACE 



LOOP IF NOT CORRECT NAME 

CREATE 

NEW VARIABLE? 

POSSIBLE DD ERROR 

ERROR IF FOUND ON CREATE 

GET # SUBSCRIPTS 

COMPARE WITH TABLE ENTRY 

JUMP IF MATCH 

BS ERROR 

GO TO ERROR ROUTINE 

SAVE ARRAY TYPE 

NEXT BYTE 

DE = TYPE = SIZE 



GET # SUBSCRIPTS 
SAVE 
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2749 


23 


INC 


HL 


ARRAY 


274A 


70 


LD 


(HL) ,B 


NAME 


274B 


23 


INC 


HL 




274C 


4F 


LD 


C,A 


SAVE # SUBSCRIPTS IN C 


274D 


CD6319 


CALL 


1963H 


REQUEST MEMORY SPACE 


2750 


23 


INC 


HL 


SKIP OVER 


2751 


23 


INC 


HL 


SIZE WORD 


2752 


22D840 


LD 


(40D8H) ,HL 


SAVE POSITION OF SIZE OF WORD 


2755 


71 


LD 


(HL) ,C 


SAVE # OF SUBSCRIPTS 


2756 


23 


INC 


HL 


MOVE TO NEXT BYTE 


2757 


3AAE4 


LD 


A, (40AEH) 


SET CARRY IF 


275A 


17 


RLA 




CREATING ARRAY 


275B 


79 


LD 


A,C 


GET # OF SUBSCRIPTS 


275C 


OlOBOO 


LD 


EC, OOOBH 


DEFAULT DIMENSION 


275F 


3002 


JR 


NC,2763H 


SKIP IF LOCATING 


2761 


CI 


POP 


BC 


GET DIMENSION 


2762 


03 


INC 


BC 


INCREASE BY 1 


2763 


71 


LD 


(HL) ,C 


SAVE 


2764 


23 


INC 


HL 


DIMENSION 


2765 


70 


LD 


(HL) ,B 


IN TABLE 


2766 


23 


INC 


HL 




2767 


F5 


PUSH 


AF 


SAVE FLAG 


2768 


CDAAOB 


CALL 


OBAAH 


SIZE = SIZE * DIMENSION 


276B 


Fl 


POP 


AF 


RESTORE FLAG 


276C 


3D 


DEC 


A 


ONE LESS DIMENSION TO DO 


276D 


2 0ED 


JR 


NZ,275CH 


LOOP UNTIL DONE 


276F 


F5 


PUSH 


AF 


SAVE FLAG 


2770 


42 


LD 


B,D 


BC = SIZE OF 


2771 


4B 


LD 


C,E 


DATA SPACE 


2772 


EB 


EX 


DE,HL 




2773 


19 


ADD 


HL,DE 


HL => NEXT AVAILABLE SPACE 


2774 


38C7 


JR 


C,273DH 


BS ERROR IF OVERFLOW 


2776 


CD6C19 


CALL 


196CH 


CHECK MEMORY SPACE 


2779 


22FD40 


LD 


(40FDH) ,HL 


SAVE NEW FREE MEMORY POINTER 


277C 


2B 


DEC 


HL 


CLEAR ARRAY 


277D 


3600 


LD 


(HL) , OOH 


TO ZEROS 


277F 


DF 


RST 


18H 




2780 


2 0FA 


JR 


NZ,277CH 




2782 


03 


INC 


BC 


INCREMENT SIZE 


2783 


57 


LD 


D,A 


D = 


2784 


2AD84 


LD 


HL, (40D8H) 


POSITION TO SIZE WORD 


2787 


5E 


LD 


E, (HL) 


DE = # SUBSCRIPTS 


2788 


EB 


EX 


DE,HL 


DE 


2789 


29 


ADD 


HL,HL 


= 


278A 


09 


ADD 


HL,BC 


# SUBSCRIPTS * 2 


278B 


EB 


EX 


DE,HL 


+ DATA SPACE SIZE 


278C 


2B 


DEC 


HL 


BACKUP TO 


278D 


2B 


DEC 


HL 


START OF SIZE WORD 


278E 


73 


LD 


(HL) ,E 


SAVE 


278F 


23 


INC 


HL 


SIZE 


2790 


72 


LD 


(HL) ,D 


OF 


2791 


23 


INC 


HL 


DATA SPACE 


2792 


Fl 


POP 


AF 


GET FLAG 


2793 


3830 


JR 


C,27C5H 


JUMP IF CREATING ARRAY 


2795 


47 


LD 


B,A 


OFFSET = 


2796 


4F 


LD 


C,A 




2797 


7E 


LD 


A, (HL) 


GET # OF SUBSCRIPTS 
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2798 23 INC HL POINT TO FIRST SUBSCRIPT 

2799 16 MASK TO 279BH 

279A El POP HL GET POSITION IN SUBSCRIPT 

279B 5E LD E, (HL) DE 

279C 23 INC HL 

279D 56 LD D, (HL) MAX SUBSCRIPT 

279E 23 INC HL VALUE + 1 

279F E3 EX (SP),HL SAVE POSITION HL = REQUESTED VALUE 

2 7A0 F5 PUSH AF SAVE # SUBSCRIPTS LEFT 

2 7A1 DF RST 18H SUBSCRIPT TOO LARGE? 

27A2 D23D27 JP NC,273DH BS ERROR IF SO 

2 7A5 CDAAOB CALL OBAAH OFFSET = OFFSET * DIMENSION 

27A8 19 ADD HL,DE OFFSET = OFFSET + SUBSCRIPT 

2 7A9 Fl POP AF RESTORE # SUBSCRIPTS LEFT 

27AA 3D DEC A ONE LESS TO PROCESS 

27AB 44 LD B,H SAVE 

27AC 4D LD C,L OFFSET 

2 7AD 2 0EB JR NZ,2 7 9AH LOOP UNTIL ALL PROCESSED 

2 7AF 3AAF4 LD A, (4 0AFH) GET SIZE OF DATA ELEMENTS 

2 7B2 44 LD B,H SAVE 

27B3 4D LD C,L OFFSET 

27B4 29 ADD HL,HL OFFSET = OFFSET * 2 

2 7B5 D6 04 SUB 04H ADJUST TYPE 

27B7 3804 JR C,27BDH SKIP IF INTEGER OR STRING 

27B9 29 ADD HL,HL OFFSET = 0FFSET*2 

27BA 2806 JR Z,27C2H JUMP IF S.P. 

27BC 29 ADD HL,HL OFFSET = 0FFSET*2 

2 7BD B7 OR A CHECK TYPE 

27BE E2C227 JP PO,27C2H SKIP IF D.P. OR INTEGER 

27C1 09 ADD HL,BC OFFSET = OFFSET * 2 + OFFSET 

2 7C2 CI POP BC GET ARRAY START 

2 7C3 09 ADD HL,BC HL => ELEMENT DATA 

2 7C4 EB EX DE,HL DE => ELEMENT DATA 

27C5 2AF340 LD HL, (40F3H) GET POSITION 

27C8 C9 RET DONE 



MEM 



27C9 


AF 


XOR 


A 


CLEAR STATUS 


2 7CA 


E5 


PUSH 


HL 


SAVE POSITION 


27CB 


32AF40 


LD 


(40AFH) ,A 


SET TYPE NUMERIC 


27CE 


CDD42 7 


CALL 


27D4H 


CALL FRE ( ) 


27D1 


El 


POP 


HL 


RESTORE POSITION 


27D2 


D7 


RST 


lOH 


GET NEXT CHARACTER 


27D3 


C9 


RET 
FRE 




DONE 



2 7D4 
27D7 
27D8 
2 7DB 
27DC 
2 7DD 
27DF 
27E2 
27E5 
27E8 
27E9 



2AFD4 

EB 

210000 

39 

E7 

200D 

CDDA2 9 

CDE628 

2AA040 

EB 

2AD64 



LD 

EX 

LD 

ADD 

RST 

JR 

CALL 

CALL 

LD 

EX 

LD 



HL, (40FDH) 

DE,HL 

HL, OOOOH 

HL,SP 

20H 

NZ,2 7ECH 

2 9DAH 

28E6H 

HL, (40A0H) 

DE,HL 

HL, (40D6H) 



DE => START OF FREE MEMORY 
HL => TOP OF STACK 

CHECK ARGUMENT TYPE 
JUMP IF NOT STRING 



DE => START OF STRING SPACE 

HL => NEXT AVAILABLE STRING LOC . 
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27EC 


7D 


LD 


A,L 


HL 


2 7ED 


93 


SUB 


E 


= 


27EE 


6F 


LD 


L,A 


HL 


27EF 


7C 


LD 


A,H 


- 


27F0 


9A 


SBC 


A,D 


DE 


27F1 


67 


LD 


H,A 




27F2 


C3660C 


JP 
POS 


0C66H 


RETURN HL AS RESULT 


27F5 


3AA640 


LD 


A, (40A6H) 


GET POS 


27F8 


6F 


LD 


L,A 


HL = POS 


27F9 


AF 


XOR 


A 




2 7FA 


67 


LD 


H,A 




27FB 


C3 9A0A 


JP 
USR 


0A9AH 


RETURN RESULT INTEGER 


27FE 


CDA941 


CALL 


41A9H 


DOS LINK 


2801 


D7 


RST 


lOH 


GET NEXT CHARACTER 


2802 


CD2C25 


CALL 


252CH 


EVALUATE ARGUMENT 


2805 


E5 


PUSH 


HL 


SAVE POSITION 


2806 


219008 


LD 


HL, 0890H 


RETURN THROUGH 


2809 


E5 


PUSH 


HL 


0890H 


2 8 0A 


3AAF4 


LD 


A, (40AFH) 


GET TYPE OF ARGUMENT 


280D 


F5 


PUSH 


AF 


SAVE TYPE 


280E 


FE03 


CP 


03H 


STRING? 


2810 


CCDA2 9 


CALL 


Z,2 9DAH 


CLEAN WORKSPACE IF SO 


2813 


Fl 


POP 


AF 


RESTORE TYPE 


2814 


EB 


EX 


DE,HL 




2815 


2A8E40 


LD 


HL, (408EH) 


GET LOCATION OF SUBROUTIl 


2818 


E9 


JP 


(HL) 


GO TO SUBROUTINE 






CONVERT ACCUM TO GIVEN TYPE 


2819 


E5 


PUSH 


HL 


SAVE POSITION 


2 81A 


E607 


AND 


07H 


ADJUST TYPE 


281C 


21A118 


LD 


HL,18A1H 


HL => CONVERTOR TABLE 


281F 


4F 


LD 


C,A 


BC => OFFSET IN TABLE 


2820 


0600 


LD 


B,OOH 




2822 


09 


ADD 


HL,BC 


HL => CONVERSION ROUTINE 


2823 


CD8625 


CALL 


2586H 


EXECUTE CONVERTOR 


2826 


El 


POP 


HL 


RESTORE POSITION 


2827 


C9 


RET 




DONE 




E5 


CHECK 


FOR ILLEGAL 


DIRECT ERROR 


2828 


PUSH 


HL 


SAVE POSITION 


2829 


2AA24 


LD 


HL, (40A2H) 


GET CURRENT LINE # 


282C 


23 


INC 


HL 


DIRECT 


282D 


7C 


LD 


A,H 


MODE? 


282E 


B5 


OR 


L 




282F 


El 


POP 


HL 


RESTORE POSITION 


2830 


CO 


RET 


NZ 


RETURN IF NOT 


2831 


1E16 


LD 


E, 16H 


ID ERROR 


2833 


C3A219 


JP 
STR$ 


19A2H 


GO TO ERROR ROUTINE 


2836 


CDBDOF 


CALL 


OFBDH 


CONVERT ACCUM TO ASCII 


2839 


CD6528 


CALL 


2865H 


CREATE STRING DESCRIPTOR 


283C 


CDDA2 9 


CALL 


2 9DAH 


CLEAN UP 
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283F 


012B2A 


LD 


BC,2A2BH 


2842 


C5 


PUSH 


BC 


2843 


7E 


LD 


A, (HL) 


2844 


23 


INC 


HL 


2845 


E5 


PUSH 


HL 


2846 


CDBF2 8 


CALL 


2 8BFH 


2849 


El 


POP 


HL 


284A 


4E 


LD 


C, (HL) 


284B 


23 


INC 


HL 


284C 


46 


LD 


B, (HL) 


284D 


CD5A2 8 


CALL 


2 85AH 


2850 


E5 


PUSH 


HL 


2851 


6F 


LD 


L,A 


2852 


CDCE2 9 


CALL 


2 9CEH 


2855 


Dl 


POP 


DE 


2856 


C9 


RET 








CREATE 


A STRING 


2857 


CDBF2 8 


CALL 


2 8BFH 


285A 


21D340 


LD 


HL,40D3H 


285D 


E5 


PUSH 


HL 


285E 


77 


LD 


(HL) ,A 


285F 


23 


INC 


HL 


2860 


73 


LD 


(HL) ,E 


2861 


23 


INC 


HL 


2862 


72 


LD 


(HL) ,D 


2863 


El 


POP 


HL 


2864 


C9 


RET 





SET RETURN 
THROUGH 2A2BH 
GET STRING LENGTH 
NEXT BYTE 
SAVE POSITION 
ALLOCATE STRING 
RESTORE POSITION 
GET WORKSTRING 
LOCATION 

CREATE NEW DESCRIPTOR 

SAVE LOCATION OF DESCRIPTOR 

L = LENGTH OF STRING 

MOVE STRING TO STRING SPACE 

RESTORE LOCATION OF DESCRIPTION 

CONTINUE 



ALLOCATE STRING SPACE 
HL => POINTER WORKSPACE 
SAVE POINTER 
SAVE LENGTH OF STRING 

SAVE STRING ADDRESS 



RESTORE POINTER 
DONE 



A= # CHARACTERS IN STRING 

WHEN DONE: 

HL = 4 0D3H 

(HL) = STRING DESCRIPTOR 
DE => STRING DATA 



CREATE STRING DESCRIPTOR 



2865 


2B 


DEC 


HL 


2866 


0622 


LD 


B,22H 


2868 


50 


LD 


D,B 


2869 


E5 


PUSH 


HL 


286A 


OEFF 


LD 


COFFH 


286C 


23 


INC 


HL 


286D 


7E 


LD 


A, (HL) 


286E 


OC 


INC 


C 


286F 


B7 


OR 


A 


2870 


2806 


JR 


Z,2878H 


2872 


BA 


CP 


D 


2873 


2803 


JR 


Z,2878H 


2875 


B8 


CP 


B 


2876 


20F4 


JR 


NZ,286CH 


2878 


FE22 


CP 


22H 


2 8 7A 


CC781D 


CALL 


Z, 1D78H 


287D 


E3 


EX 


(SP) ,HL 


287E 


23 


INC 


HL 


287F 


EB 


EX 


DE,HL 


2880 


79 


LD 


A,C 



BACKUP BEFORE STRING 

B = DELIMITER # 1 = QUOTES 

D = DELIMITER # 2 = QUOTES 

SAVE START OF STRING 

C = -1 (NUMBER OF CHARACTERS) 

NEXT BYTE 

GET BYTE 

INCREASE # OF CHARACTERS 

TEST CHARACTER 

SKIP IF END OF LINE 

DELIMITER # 2? 

SKIP IF SO. 

DELIMITER # 1? 

LOOP IF NOT 

DOUBLE QUOTES? 

SKIP OVER IF SO 

GET STRING POINTER. SAVE POSITION 

DE => STRING DATA 
A = STRING LENGTH 
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2881 CD5A28 CALL 285AH SAVE DESCRIPTOR TEMPORARILY 

2884 11D340 LD DE,40D3H MOVE FROM TEMPORARY SPACE 

2887 3ED5 LD A, 0D5H UNUSED DUMMY ENTRY 

2889 2AB340 LD HL, (40B3H) MOVE TO WORKSPACE 

288C 222141 LD (4121H),HL SAVE LOCATION IN ACCUM 

288F 3E03 LD A, 03H SET ACCUM TO 

2 8 91 32AF4 LD (4 0AFH) ,A STRING TYPE 

2 8 94 CDD3 9 CALL 9D3H MOVE DATA 

2897 11D640 LD DE,40D6H DE => END OF WORKSPACE 

289A DF RST 18H WORKSPACE FULL? 

289B 22B340 LD (40B3H),HL SAVE NEW WORK POINTER 

289E El POP HL GET POSITION 

289F 7E LD A, (HL) GET FIRST CHARACTER OF STRING 

2 8A0 CO RET NZ RETURN IF NO ERROR 

28A1 lElE LD E,1EH ST ERROR 

28A3 C3A219 JP 19A2H GO TO ERROR ROUTINE 



DISPLAY MESSAGE 



2 8A6 
2 8A7 
28AA 
2 8 AD 
28B0 
28B1 
28B2 
28B3 
28B4 
28B7 
28B9 
28BC 
28BD 



23 

CD6528 

CDDA2 9 

CDC4 09 

14 

15 

C8 

OA 

CD2A03 

FEOD 

CC0321 

03 

18F2 



INC 

CALL 

CALL 

CALL 

INC 

DEC 

RET 

LD 

CALL 

CP 

CALL 

INC 

JR 



HL 
2865H 

2 9DAH 
09C4H 
D 

D 
Z 
A, (BC) 

03 2AH 
ODH 

Z,2103H 
BC 
28B1H 



MOVE TO NEXT BYTE 

CREATE DESCRIPTOR FOR MESSAGE 

CLEAN UP WORKSPACE 

GET STRING INFO 

LENGTH = LENGTH + 1 

ONE LESS BYTE TO DO 

RETURN IF DONE 

GET CHARACTER 

DISPLAY CHARACTER 

CARRIAGE RETURN? 

DOS LINK IF SO 

NEXT BYTE 

LOOP 



ALLOCATE SPACE FOR STRING 



28BF 
28C0 
28C0 
28C2 
28C3 
28C6 
28C7 
2 8CA 
28CB 
28CC 
28CE 
28CF 
28D0 
28D1 
28D3 
28D6 
28D7 
28D8 
28D9 



B7 

OE 

Fl 

F5 

2AA040 

EB 

2AD64 

2F 

4F 

06FF 

09 

23 

DF 

3807 

22D640 

23 

EB 

Fl 

C9 



OR 

POP 

PUSH 

LD 

EX 

LD 

CPL 

LD 

LD 

ADD 

INC 

RST 

JR 

LD 

INC 

EX 

POP 

RET 



AF 

AF 

HL, (40A0H) 

DE,HL 

HL, (40D6H) 



C,A 
B, OFFH 
HL,BC 
HL 
18H 

C,2 8DAH 
(40D6H) , 
HL 

DE,HL 
AF 



HL 



SET STATUS 

MASK TO 2 8C2H 

RESTORE STATUS 

SAVE STATUS 

DE => END OF STRING SPACE 

HL => NEXT AVAILABLE STRING 

BC = 

- LENGTH OF STRING 

HL => NEW NEXT AVAILABLE 

SPACE OVER NEXT AVAILABLE SPRING 

STRING SPACE FULL? 

JUMP TO PACK IF SO. 

SAVE NEW NEXT AVAILABLE STRING. 

SPACE BACK TO ALLOCATED SPACE. 

DE => NEW STRING 

RESTORE STATUS 

DONE 



28DA Fl 
28DB lElA 
2 8DD CAA219 



PACK STRING SPACE 



POP 

LD 

JP 



AF 

E, lAH 

Z, 19A2H 



WAS PACK ALREADY DONE? 
OS ERROR 
IF SO 
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28E0 


BF 


CP 


A 


28E1 


F5 


PUSH 


AF 


28E2 


01C128 


LD 


BC,28C1H 


28E5 


C5 


PUSH 


BC 


28E6 


2AB14 


LD 


HL, (40B1H) 


28E9 


22D640 


LD 


(40D6H) ,HL 


28EC 


210000 


LD 


HL,OOOOH 


28EF 


E5 


PUSH 


HL 


28F0 


2AA040 


LD 


HL, (40A0H) 


28F3 


E5 


PUSH 


HL 


28F4 


21B540 


LD 


HL,40B5H 


28F7 


EB 


EX 


DE,HL 


28F8 


2AB340 


LD 


HL, (40B3H) 


28FB 


EB 


EX 


DE,HL 


28FC 


DF 


RST 


18H 


28FD 


01F728 


LD 


BC,28F7H 


2900 


C24A29 


JP 


NZ,2 94AH 


2903 


2AF940 


LD 


HL, (40F9H) 


2906 


EB 


EX 


DE,HL 


2907 


2AFB4 


LD 


HL, (40FBH) 


290A 


EB 


EX 


DE,HL 


290B 


DF 


RST 


18H 


290C 


2813 


JR 


Z,2921H 


290E 


7E 


LD 


A, (HL) 


290F 


23 


INC 


HL 


2910 


23 


INC 


HL 


2911 


23 


INC 


HL 


2912 


FE03 


CP 


03H 


2914 


2004 


JR 


NZ,2 91AH 


2916 


CD4B2 9 


CALL 


294BH 


2919 


AF 


XOR 


A 


291A 


5F 


LD 


E,A 


291B 


1600 


LD 


D, OOH 


291D 


19 


ADD 


HL,DE 


291E 


18E6 


JR 


2906H 


2920 


CI 


POP 


BC 


2921 


EB 


EX 


DE,HL 


2922 


2AFD4 


LD 


HL, (40FDH) 


2925 


EB 


EX 


DE,HL 


2926 


DF 


RST 


18H 


2927 


CA6B2 9 


JP 


Z,296BH 


292A 


7E 


LD 


A, (HL) 


292B 


23 


INC 


HL 


292C 


CDC2 9 


CALL 


09C2H 


292F 


E5 


PUSH 


HL 


2930 


09 


ADD 


HL,BC 


2931 


FE03 


CP 


03H 


2933 


20EB 


JR 


NZ,2920H 


2935 


22D840 


LD 


(40D8H) ,HL 


2938 


El 


POP 


HL 


2939 


4E 


LD 


C, (HL) 


293A 


0600 


LD 


B,OOH 


293C 


09 


ADD 


HL,BC 


293D 


09 


ADD 


HL,BC 


293E 


23 


INC 


HL 


293F 


EB 


EX 


DE,HL 


2940 


2AD84 


LD 


HL, (40D8H) 



INDICATE THAT A PACK 

HAS BEEN DONE 

RETURN TO ALLOCATION 

ROUTINE WHEN DONE 

HL => TOP OF STRING SPACE 

SET NEXT AVAILABLE LOCATION 

SAVE A 

NULL MARKER 

SAVE BOTTOM OF 

STRING SPACE 

HL => WORKSPACE TABLE 

HL => POSITION IN WORK TABLE 

DE => END OF WORK TABLE 

DONE WITH WORK TABLE 
SET RETURN TO 2BF7H 
PACK STRING IF NOT DONE 
HL => VARIABLES 
HL => POSITION IN TABLE 
DE => ARRAYS 

DONE WITH VARIABLES? 

SKIP OUT IF SO 

GET VARIABLE TYPE 

SKIP 

PAST 

NAME 

STRING? 

SKIP IF SO 

PACK STRING 

CLEAR SIZE OF UNTO 

DE = SIZE OF DATA 

SPACE 

MOVE PAST DATA 

LOOP THROUGH VARIABLES 

CLEAR STACK 

HL => POSITION IN TABLE 

DE => END OF TABLE 

DONE WITH ARRAYS 

JUMP OUT IF SO? 

GET ARRAY TYPE 

POINT TO NEXT BYTE 

BC = DATA SPACE LENGTH 

SAVE POSITION 

MOVE PAST DATA 

STRING? 

LOOP IF NOT 

SAVE END OF ARRAY 

RESTORE POSITION IN ARRAY 

BC = # DIMENSIONS 

MOVE PAST 

DIMENSION DATA 

MOVE ONE MORE BYTE 

HL => POSITION IN ARRAY 

DE => END OF ARRAY 
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2943 


EB 


EX 


DE,HL 


2944 


DF 


RST 


18H 


2945 


2 8DA 


JR 


Z,2921H 


2947 


013F29 


LD 


BC,293FH 


294A 


C5 


PUSH 


BC 


294B 


AF 


XOR 


A 


294C 


B6 


OR 


(HL) 


294D 


23 


INC 


HL 


294E 


5E 


LD 


E, (HL) 


294F 


23 


INC 


HL 


2950 


56 


LD 


D, (HL) 


2951 


23 


INC 


HL 


2952 


C8 


RET 


Z 


2953 


44 


LD 


B,H 


2954 


4D 


LD 


C,L 


2955 


2AD64 


LD 


HL, (40D6H) 


2958 


DF 


RST 


18H 


2959 


60 


LD 


H,B 


295A 


69 


LD 


L,C 


295B 


D8 


RET 


C 


295C 


El 


POP 


HL 


295D 


E3 


EX 


(SP) ,HL 


295E 


DF 


RST 


18H 


295F 


E3 


EX 


(SP) ,HL 


2960 


E5 


PUSH 


HL 


2961 


60 


LD 


H,B 


2962 


69 


LD 


L,C 


2963 


DO 


RET 


NC 


2964 


CI 


POP 


BC 


2965 


Fl 


POP 


AF 


2966 


Fl 


POP 


AF 


2967 


E5 


PUSH 


HL 


2968 


D5 


PUSH 


DE 


2969 


C5 


PUSH 


BC 


296A 


C9 


RET 




296B 


Dl 


POP 


DE 


296C 


El 


POP 


HL 


296D 


7D 


LD 


A,L 


296E 


B4 


OR 


H 


296F 


C8 


RET 


Z 


2970 


2B 


DEC 


HL 


2971 


46 


LD 


B, (HL) 


2972 


2B 


DEC 


HL 


2973 


4E 


LD 


C, (HL) 


2974 


E5 


PUSH 


HL 


2975 


2B 


DEC 


HL 


2976 


6E 


LD 


L, (HL) 


2977 


2600 


LD 


H, OOH 


2979 


09 


ADD 


HL,BC 


297A 


50 


LD 


D,B 


297B 


59 


LD 


E,C 


297C 


2B 


DEC 


HL 


297D 


44 


LD 


B,H 


297E 


4D 


LD 


C,L 


297F 


2AD64 


LD 


HL, (40D6H) 


2982 


CD5819 


CALL 


1958H 


2985 


El 


POP 


HL 



DONE WITH ARRAY? 
LOOP BACK IF SO 
SET RETURN TO 2 93FH 
SAVE RETURN ADDRESS 
GET STRING LENGTH 
& SET STATUS 

GET 

STRING 

ADDRESS 

IN DE 

LOOP IF NULL STRING 

SAVE POSITION 

IN BC 

HL => NEXT AVAILABLE STRING 

STRING ALREADY PACKED? 

RESTORE POSITION 

FROM BC 

RETURN IF ALREADY PACKED 

GET RETURN 

SAVE RETURN & GET POINTER 

STRING BEFORE POINTER? 

SAVE POINTER & GET RETURN 

SAVE RETURN 

RESTORE POSITION 

FROM BC 

RETURN IF STRING BEFORE POINTER 

GET RETURN 

CLEAR STATUS 

SAVE POSITION OF POINTER 
SAVE STRING POINTER 
SAVE RETURN 
RETURN 

DE => STRING 
HL => STRING DESCRIPTOR 
NULL POINTER? 
(DONE?) 
RETURN IF SO 
BC => OLD 
POSITION 
OF 

STRING 

SAVE POSITION OF POINTER 
HL = 
LENGTH 
OF STRING 

HL = END OF OLD STRING 
DE = START OF OLD STRING 



BC 



END OF OLD STRING 



HL = START OF NEW STRING 

MOVE STRING 

RESTORE POSITION OF POINTER 
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2986 71 

2987 23 

2988 70 

2989 69 
298A 60 
298B 2B 
298C C3E928 



LD 

INC 

LD 

LD 

LD 

DEC 

JP 



(HL) 
HL 

(HL) 
L,C 
H,B 
HL 
28E9H 



B 



SAVE 

NEW 

POINTER 

HL = NEXT 

AVAILABLE 

LOCATION 

LOOP 



STRING ADDITION 



298F 
2990 
2991 
2994 
2995 
2998 
2999 
299C 
299D 
299E 
2 9A1 
2 9A2 
2 9A3 
2 9A5 
2 9A8 
2 9AB 
2 9AC 
2 9AF 
29B0 
29B3 
29B4 
29B7 
29B8 
29BB 
29BE 
29C1 
29C2 
29C3 



C5 

E5 

2A2141 

E3 

CD9F24 

E3 

CDF4 0A 

7E 

E5 

2A2141 

E5 

86 

lElC 

DAA219 

CD5728 

Dl 

CDDE2 9 

E3 

CDDD2 9 

E5 

2AD44 

EB 

CDC629 

CDC629 

214923 

E3 

E5 

C38428 



PUSH 

PUSH 

LD 

EX 

CALL 

EX 

CALL 

LD 

PUSH 

LD 

PUSH 

ADD 

LD 

JP 

CALL 

POP 

CALL 

EX 

CALL 

PUSH 

LD 

EX 

CALL 

CALL 

LD 

EX 

PUSH 

JP 



BC 

HL 

HL, (4121H) 

(SP) ,HL 
249FH 

(SP) ,HL 

0AF4H 

A, (HL) 

HL 

HL, (4121H) 

HL 

A, (HL) 

E, ICH 

C, 19A2H 

2857H 

DE 

2 9DEH 

(SP) ,HL 

2 9DDH 

HL 

HL, (40D4H) 

DE,HL 

29C6H 

29C6H 

HL,2349H 

(SP) ,HL 
HL 
2884H 



SAVE PRIORITY 

SAVE POSITION 

GET STRING POINTER # 1 

SAVE POINTER. GET POSITION 

EVALUATE SECOND ARGUMENT 

GET POINTER, SAVE POSITION 

TM ERROR IF NOT STRING 

GET LEN (ARGl) 

SAVE POINTER # 1 

GET POINTER #2 

SAVE POINTER # 2 

COMPUTE LEN (ARG 1 + ARG 2) 

POSSIBLE LS ERROR 

ERROR IF OVERFLOW 

ALLOCATE NEW STRING 

GET POINTER #2 

DELETE WORKSPACE ENTRY 

GET PRINTER #1 

DELETE WORKSPACE ENTRY 

SAVE POINTER # 1 

DE => NEW STRING 

AREA 

MOVE STRING #1 

MOVE STRING #2 

SET RETURN TO 2 34 9H 

SAVE RETURN & GET POSITION 

SAVE POSITION 

CONTINUE 



MOVE STRING 



29C6 
29C7 
29C8 
29C9 
2 9CA 
29CB 
29CC 
2 9CD 
29CE 
29CF 
29D0 
29D1 
2 9D2 
29D3 
2 9D4 
29D5 



El 
E3 
7E 
23 
4E 
23 
46 
6F 
2C 
2D 
C8 
OA 
12 
03 
13 
18FJ 



POP 
EX 

LD 

INC 

LD 

INC 

LD 

LD 

INC 

DEC 

RET 

LD 

LD 

INC 

INC 

JR 



HL 

(SP) ,HL 
A, (HL) 
HL 

C, (HL) 
HL 

B, (HL) 
L,A 
L 
L 
Z 
A, (BC) 

(DE) ,A 
BC 
DE 
2 9CFH 



GET POSITION OF 
STRING DESCRIPTOR. 
GET STRING LENGTH 



BC 



STRING DATA 



SAVE RETURN 



L = LENGTH 

LENGTH = LENGTH + 1 

ONE LESS BYTE TO MOVE 

RETURN IF DONE 

GET BYTE 

SAVE BYTE 

MOVE TO 

NEXT BYTES 

LOOP 



DELETE WORKSTRING IF NECESSARY 
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2 9D7 CDF4 0A CALL 0AF4H TM ERROR IF NOT STRING 

29DA 2A2141 LD HL, (4121H) DE => WORKSPACE ENTRY 

2 9DD EB EX DE,HL 

2 9DE CDF52 9 CALL 2 9F5H DELETE WORKSPACE ENTRY 

2 9E1 EB EX DE,HL HL => WORKSPACE ENTRY 

29E2 CO RET NZ EXIT IF NOT LAST ENTRY 

2 9E3 D5 PUSH DE SAVE POINTER TO DESCRIPTOR 

29E4 50 LD D,B DE => STRING 

2 9E5 5 9 LD E,C DATA 

2 9E6 IB DEC DE POSITION JUST BEFORE DATA 

29E7 4E LD C, (HL) GET LENGTH OF STRING 

29E8 2AD640 LD HL, (40D6H) HL => NEXT AVAILABLE STRING 

29EB DF RST 18H LAST STRING IN STRING SPACE? 

29EC 2005 JR NZ,29F3H SKIP IF NOT 

2 9EE 4 7 LD B,A BC = LENGTH OF STRING 

2 9EF 9 ADD HL,BC ADJUST NEXT 

29F0 22D640 LD (40D6H),HL AVAILABLE STRING LOCATION 

2 9F3 El POP HL RESTORE POINTER TO DESCRIPTOR 

2 9F4 C9 RET DONE 



DELETE WORKSPACE ENTRY IF LAST 



29F5 2AB340 
29F8 2B 
29F9 46 
29FA 2B 
29FB 4E 
29FC 2B 
2 9FD DF 
29FE CO 
29FF 22B340 
2A02 C9 



LD 

DEC 

LD 

DEC 

LD 

DEC 

RST 

RET 

LD 

RET 



HL, (40B3H) 
HL 

B, (HL) 
HL 

C, (HL) 
HL 
18H 
NZ 
(40B3H) ,HL 



HL => LAST ENTRY 
BC => STRING DATA 



LAST ENTRY SAME AS GIVEN? 
RETURN IF NOT 
DELETE IF LAST 
DONE 



LEN 



2A03 


01F827 


LD 


BC,27F8H 


2A06 


C5 


PUSH 


BC 


2A07 


CDD729 


CALL 


29D7H 


2A0A 


AF 


XOR 


A 


2A0B 


57 


LD 


D,A 


2A0C 


7E 


LD 


A, (HL) 


2A0D 


B7 


OR 


A 


2A0E 


C9 


RET 
ASC 




2A0F 


01F827 


LD 


BC,27F8H 


2A12 


C5 


PUSH 


BC 


2A13 


CD072A 


CALL 


2A07H 


2A16 


CA4A1E 


JP 


Z,1E4AH 


2A19 


23 


INC 


HL 


2A1A 


5E 


LD 


E, (HL) 


2A1B 


23 


INC 


HL 


2A1C 


56 


LD 


D, (HL) 


2A1D 


lA 


LD 


A, (DE) 


2A1E 


C9 


RET 
CHR$ 





2A1F 3E01 
2A21 CD5728 



LD 
CALL 



A, OIH 
2857H 



RETURN A AS 

INTEGER RESULT 

DELETE TEMPORARY STRING 

CLEAR 

D 

GET STRING LENGTH 

CLEAR STATUS 

FINISH UP 



RETURN A AS 

INTEGER RESULT 

GET LEN IN A 

FC ERROR IF NULL STRING 

DE => 

FIRST CHARACTER 

OF STRING 

GET FIRST CHARACTER. 
RETURN AS ASCII VALUE 



CREATE A 1-BYTE 
STRING 
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2A24 


CD1F2B 


CALL 


2B1FH 


2A2 7 


2AD44 


LD 


HL, (40D4H) 


2A2A 


73 


LD 


(HL) ,E 


2A2B 


CI 


POP 


BC 


2A2C 


C38428 


JP 
STRING* 


2884H 


2A2F 


D7 


RST 


" lOH 


2A3 


CF 


RST 


08H 


2A31 


28 


M { 11 




2A32 


CD1C2B 


CALL 


2B1CH 


2 A3 5 


D5 


PUSH 


DE 


2 A3 6 


CF 


RST 


08H 


2 A3 7 


2C 


11 11 




2 A3 8 


CD3723 


CALL 


2337H 


2A3B 


CF 


RST 


08H 


2A3C 


29 


II \ II 




2A3D 


E3 


EX 


(SP) ,HL 


2A3E 


E5 


PUSH 


HL 


2A3F 


E7 


RST 


20H 


2A4 


2805 


JR 


Z,2A4 7H 


2A42 


CD1F2B 


CALL 


2B1FH 


2A4 5 


1803 


JR 


2A4AH 


2A4 7 


CD132A 


CALL 


2A13H 


2A4A 


Dl 


POP 


DE 


2A4B 


F5 


PUSH 


AF 


2A4C 


F5 


PUSH 


AF 


2A4D 


7B 


LD 


A,E 


2A4E 


CD5728 


CALL 


2857H 


2A51 


5F 


LD 


E,A 


2A52 


Fl 


POP 


AF 


2A53 


IC 


INC 


E 


2A54 


ID 


DEC 


E 


2A55 


28D4 


JR 


Z,2A2BH 


2A57 


2AD44 


LD 


HL, (40D4H) 


2A5A 


77 


LD 


(HL) ,A 


2A5B 


23 


INC 


HL 


2A5C 


ID 


DEC 


E 


2A5D 


20FB 


JR 


NZ , 2A5AH 


2A5F 


18CA 


JR 
LEFT$ 


2A2BH 


2A61 


CDDF2A 


CALL 


2ADFH 


2A64 


AF 


XOR 


A 


2A6 5 


E3 


EX 


(SP) ,HL 


2A6 6 


4F 


LD 


C,A 


2A6 7 


3E 






2A68 


E5 


PUSH 


HL 


2A6 9 


E5 


PUSH 


HL 


2A6A 


7E 


LD 


A, (HL) 


2A6B 


B8 


CP 


B 


2A6C 


3802 


JR 


C,2A70H 


2A6E 


78 


LD 


A,B 


2A6F 


llOEOO 


LD 


DE, OOOEH 


2A7 


OEOO 


LD 


COOH 


2A72 


C5 


PUSH 


BC 


2A73 


CDBF2 8 


CALL 


2 8BFH 



CONVERT PARAM TO INTEGER 
GET STRING POINTER 
STORE CHARACTER IN STRING 
CLEAR STACK 
FINISH UP & RETURN 



GET NEXT CHARACTER 

SYNTAX CHARACTER IF CHARACTER 

NOT " ( " 

EVALUATE # CHARACTERS 

SAVE # CHARACTERS 

SYNTAX ERROR IF 

NEXT CHARACTER NOT COMMA 

EVALUATE SECOND PARAM 

SYNTAX ERROR IF NEXT 

CHARACTER NOT " ) " 

SAVE POSITION. GET # CHARACTERS 

SAVE # CHARACTERS 

GET TYPE OF ACCUM 

JUMP IF STRING 

CONVERT PARAM TO INTEGER 

SKIP NEXT INSTRUCTION 

GET ASC (PARMA 

RESTORE # CHARACTERS 

SAVE STATUS TWICE 

CREATE THE 
NECESSARY STRING 

RESTORE STATUS 
NULL STRING? 

EXIT IF NULL STRING 

HL => STRING 

SAVE CHARACTER 

NEXT BYTE 

ONE LESS TO STORE 

LOOP UNTIL DONE 

CLEAR STACK & FINISH 



GET PARAM 2 

OFFSET =0 

SAVE POSITION HL => PARAM 1 

C = OFFSET 

SKIP TO 2A69H 

SAVE STRING POINTER 

SAVE STRING POINTER 

GET LEN (SPRING) 

COMPARE WITH PARAM 2 

SKIP IF LESS 

A = PARAM 2 

SKIP TO 2A72H 

USE ENTIRE STRING 

SAVE OFFSET & PARAM 2 

CREATE DESTINATION STRING 
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2A76 


CI 


POP 


BC 


2A77 


El 


POP 


HL 


2A78 


E5 


PUSH 


HL 


2A7 9 


23 


INC 


HL 


2A7A 


46 


LD 


B, (HL) 


2A7B 


23 


INC 


HL 


2A7C 


66 


LD 


H, (HL) 


2A7D 


68 


LD 


L,B 


2A7E 


0600 


LD 


B, OOH 


2 ABO 


09 


ADD 


HL,BC 


2A81 


44 


LD 


B,H 


2A82 


4D 


LD 


C,L 


2 AS 3 


CD5A2 8 


CALL 


2 85AH 


2A8 6 


6F 


LD 


L,A 


2 AS 7 


CDCE2 9 


CALL 


2 9CEH 


2A8A 


Dl 


POP 


DE 


2A8B 


CDDE2 9 


CALL 


2 9DEH 


2A8E 


C38428 


JP 
RIGHT$ 


2884H 


2A91 


CDDF2A 


CALL 


2ADFH 


2A94 


Dl 


POP 


DE 


2A95 


D5 


PUSH 


DE 


2A96 


lA 


LD 


A, (DE) 


2A97 


90 


SUB 


B 


2A98 


18CB 


JR 
MID$ 


2A65H 


2A9A 


EB 


EX 


DE,HL 


2A9B 


7E 


LD 


A, (HL) 


2A9C 


CDE22A 


CALL 


2AE2H 


2A9F 


04 


INC 


B 


2AA0 


05 


DEC 


B 


2AA1 


CA4A1E 


JP 


Z, 1E4AH 


2AA4 


C5 


PUSH 


BC 


2AA5 


lEFF 


LD 


E, OFFH 


2AA7 


FE2 9 


CP 


2 9H 


2AA9 


2805 


JR 


Z,2AB0H 


2AAB 


CF 


RST 


08H 


2AAC 


2C 


II II 




2AAD 


CD1C2B 


CALL 


2B1CH 


2 ABO 


CF 


RST 


08H 


2AB1 


29 


II \ II 




2AB2 


Fl 


POP 


AF 


2AB3 


E3 


EX 


(SP) ,HL 


2AB4 


01692A 


LD 


BC,2A69H 


2AB7 


C5 


PUSH 


BC 


2AB8 


3D 


DEC 


A 


2AB9 


BE 


CP 


(HL) 


2 ABA 


0600 


LD 


B,OOH 


2ABC 


DO 


RET 


NC 


2ABD 


4F 


LD 


C,A 


2ABE 


7E 


LD 


A, (HL) 


2ABF 


91 


SUB 


C 


2AC0 


BB 


CP 


E 


2AC1 


47 


LD 


B,A 


2AC2 


D8 


RET 


C 



GET OFFSET & PARAM 2 
HL => STRING POINTER 



HL 



STRING DATA 



BC = OFFSET INTO STRING 

HL => START OF RESULT STRING 

BC => START OF RESULT STRING 

CREATE STRING DESCRIPTOR 
L = LENGTH OF NEW STRING 
MOVE DATA TO NEW STRING 
DE => STRING POINTER 
CLEAN UP WORKSPACE 
FINISH UP & RETURN 



GET PARAM 1 
GET & 
SAVE PARAM 
OFFSET= 
LEN ( PARAM 
CONTINUE 



1 POINTER 



PARAM 2 



GET POSITION 

GET CHARACTER. 

GET PARAM 2 

SET STATUS 

OF PARAM 2 

FC ERROR IF ZERO 

SAVE PARAM 2 

DEFAULT PARAM 3 

IS CHARACTER A ") "? 

SKIP IF SO 

SYNTAX ERROR IF 

NEXT CHARACTER NOT COMMA 

EVALUATE PARAM 3 

SYNTAX ERROR IF 

NEXT CHARACTER NOT 911 

GET PARAM 2 

SAVE POSITION. GET PARAM 1 

RETURN THROUGH 2A6 9H 

# CHARACTERS = IF 

PARAM 2 IS GREATER 

THAN LEN (PARAM 1) 

RETURN IF SO 

C = PARAM 2 = OFFSET 

A = LEN (PARAM 1) - PARAM 2 

COMPARE WITH PARAM 3 

USE CHARACTERS LEFT IF LESS 

LEFT THAN PARAM 3 
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2AC3 43 
2AC4 C9 



LD 
RET 



B,E 



USE PARAM 3 CHARACTERS 
OTHERWISE. FINISH UP 



VAL 



2AC5 


CD072A 


CALL 


2A07H 


2AC8 


CAF82 7 


JP 


Z,27F8H 


2ACB 


5F 


LD 


E,A 


2ACC 


23 


INC 


HL 


2ACD 


7E 


LD 


A, (HL) 


2ACE 


23 


INC 


HL 


2ACF 


66 


LD 


H, (HL) 


2 ADO 


6F 


LD 


L,A 


2AD1 


E5 


PUSH 


HL 


2AD2 


19 


ADD 


HL,DE 


2AD3 


46 


LD 


B, (HL) 


2AD4 


72 


LD 


(HL) ,D 


2AD5 


E3 


EX 


(SP) ,HL 


2AD6 


C5 


PUSH 


BC 


2AD7 


7E 


LD 


A, (HL) 


2AD8 


CD650E 


CALL 


0E65H 


2ADB 


CI 


POP 


BC 


2ADC 


El 


POP 


HL 


2 ADD 


70 


LD 


(HL) ,B 


2ADE 


C9 


RET 




2ADF 


EB 


EX 


DE,HL 


2AE0 


CF 


RST 


08H 


2AE1 


29 


II \ II 




2AE2 


CI 


POP 


BC 


2AE3 


Dl 


POP 


DE 


2AE4 


C5 


PUSH 


BC 


2AE5 


43 


LD 


B,E 


2AE6 


C9 


RET 




2AE7 


FE7A 


CP 


7AH 


2AE9 


C29719 


JP 


NZ, 1997H 


2AEC 


C3D941 


JP 
INP 


41D9H 


2AEF 


CD1F2B 


CALL 


2B1FH 


2AF2 


329440 


LD 


(4094H) ,A 


2AF5 


CD9340 


CALL 


4093H 


2AF8 


C3F827 


JP 
OUT 


27F8H 



CLEAN UP WORKSPACE 
EXIT IF NULL STRING 
E = STRING LENGTH 
HL => STRING DATA 



2AFB CD0E2B CALL 2B0EH 
2AFE C39640 JP 4096H 



SAVE STRING POINTER 

HL => END OF STRING + : 

B = END MARKER 

PLACE NULL END MARKER 

SAVE END. GET START 

SAVE MARKET CHARACTER 

GET FIRST CHARACTER. 

DECODE NUMBER 

RESTORE MARKER 

RESTORE END OF STRING 

SAVE OLD MARKER 

DONE 

GET POSITION IN TEXT 

SYNTAX ERROR IF 

NEXT CHARACTER NOT " ) " 

GET RETURN 

GET PARAM 2 

SAVE RETURN 

B = PARAM 2 

CONTINUE 

SN ERROR IF NOT MID$ 

TOKEN 

GO TO DOS OTHERWISE 



EVALUATE PARAM 
STORE PARAM 
GET INPUT 
SAVE AS INTEGER 



EVALUATE PARAMS 
OUTPUT & RETURN 



EVALUATE PARAM AS INTEGER 



2B01 D7 
2B02 CD3723 
2B05 E5 
2B06 CD7F0A 
2B09 EB 
2B0A El 
2B0B 7A 
2B0C B7 
2B0D C9 



RST 

CALL 

PUSH 

CALL 

EX 

POP 

LD 

OR 

RET 



lOH 

2337H 

HL 

0A7FH 

DE,HL 

HL 

A,D 

A 



GET NEXT CHARACTER 

EVALUATE EXPRESSION 

SAVE POSITION 

CONVERT RESULT TO INTEGER 

RESULT IN DE 

RESTORE POSITION 

SET STATUS 

OF MSB 

DONE 
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SET UP 


FOR OUT 






2B0E 


CD1C2B 


CALL 


2B1CH 


EVALUATE PARAM 1 




2B11 


329440 


LD 


(4094H) ,A 


STORE FOR INP 




2B14 


329740 


LD 


(4097H) ,A 


& OUT 




2B17 


CF 


RST 


08H 


SYNTAX ERROR IF 




2B18 


2C 


II II 




NEXT CHARACTER NOT COMMA 




2B19 


1801 


JR 


2B1CH 


SKIP NEXT INSTRUCTION 




2B1B 


D7 


RST 


lOH 


GET NEXT CHARACTER 




2B1C 


CD3723 


CALL 


2337H 


EVALUATE PARAM 2 




2B1F 


CD052B 


CALL 


2B05H 


CONVERT TO INTEGER 




2B22 


C24A1E 


JP 


NZ, 1E4AH 


FC ERROR IF TOO LARGE 




2B25 


2B 


DEC 


HL 


BACKUP 




2B26 


D7 


RST 


lOH 


GET NEXT CHARACTER. 




2B27 


7B 


LD 


A,E 


A = LSB 




2B28 


C9 


RET 
LLIST 




DONE 




2B29 


3E01 


LD 


A, OIH 


SET ROUTE 




2B2B 


329C40 


LD 
LIST 


(409CH) ,A 


TO PRINTER 




2B2E 


CI 


POP 


BC 


CLEAR STACK 




2B2F 


CDIOIB 


CALL 


IBIOH 


GET START & END LINES 




2B32 


C5 


PUSH 


BC 


SAVE START LINE 




2B33 


21FFFF 


LD 


HL,OFFFFH 


SET DIRECT MODE 




2B36 


22A240 


LD 


(40A2H) ,HL 






2B39 


El 


POP 


HL 


HL = START LINE POSITION 




2B3A 


Dl 


POP 


DE 


DE = END LINE 




2B3B 


4E 


LD 


C, (HL) 


BC = FORWARD 




2B3C 


23 


INC 


HL 


POINTER 




2B3D 


46 


LD 


B, (HL) 






2B3E 


23 


INC 


HL 






2B3F 


78 


LD 


A,B 


END OF PROGRAM? 




2B40 


Bl 


OR 


C 






2B41 


CA191A 


JP 


Z,1A19H 


READY IF SO 




2B44 


CDDF41 


CALL 


41DFH 


DOS LINK 




2B47 


CD9B1D 


CALL 


1D9BH 


CHECK FOR SPACE PAUSE KEY 




2B4A 


C5 


PUSH 


BC 


SAVE FORWARD POINTER 




2B4B 


4E 


LD 


C, (HL) 


BC = LINE # 




2B4C 


23 


INC 


HL 






2B4D 


46 


LD 


B, (HL) 






2B4E 


23 


INC 


HL 






2B4F 


C5 


PUSH 


BC 


SAVE LINE # 




2B50 


E3 


EX 


(SP) ,HL 


GET LINE #. SAVE POSITION 




2B51 


EB 


EX 


DE,HL 


DONE WITH 




2B52 


DF 


RST 


18H 


LISTING? 




2B53 


CI 


POP 


BC 


GET POSITION 




2B54 


DA181A 


JP 


C, 1A18H 


EXIT IF DONE 




2B57 


E3 


EX 


(SP) ,HL 


GET FORWARD POINTER, SAVE END 


LINE 


2B58 


E5 


PUSH 


HL 


SAVE FORWARD POINTER 




2B59 


C5 


PUSH 


BC 


SAVE POSITION 




2B5A 


EB 


EX 


DE,HL 


HL = LINE # 




2B5B 


22EC40 


LD 


(40ECH) ,HL 


MAKE IT CURRENT LINE 




2B5E 


CDAFOF 


CALL 


OFAFH 


DISPLAY LINE # 




2B61 


3E20 


LD 


A,20H 


DISPLAY SPACE 




2B63 


El 


POP 


HL 


GET POSITION 




2B64 


CD2A03 


CALL 


03 2AH 


OUTPUT SPACE 
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2B67 


GD7E2B 


GALL 


2B7EH 


2B6A 


2AA74 


LD 


HL, (40A7H) 


2B6D 


GD752B 


GALL 


2B75H 


2B70 


GDFE2 


GALL 


2 0FEH 


2B73 


18BE 


JR 


2B33H 


2B75 


7E 


LD 


A, (HL) 


2B76 


B7 


OR 


A 


2B77 


G8 


RET 


Z 


2B78 


GD2A03 


GALL 


03 2AH 


2B7B 


23 


ING 


HL 


2B7C 


18F7 


JR 


2B75H 


2B7E 


E5 


PUSH 


HL 


2B7F 


2AA74 


LD 


HL, (40A7H) 


2B82 


44 


LD 


B,H 


2B83 


4D 


LD 


C,L 


2B84 


El 


POP 


HL 


2B85 


C39A06 


JP 


6 9AH 


2B88 


00 


NOP 




2B89 


03 


ING 


BC 


2B8A 


15 


DEC 


D 


2B8B 


C8 


RET 


Z 


2B8C 


23 


ING 


HL 


2B8D 


7E 


LD 


A, (HL) 


2B8E 


B7 


OR 


A 


2B8F 


02 


LD 


(BC) ,A 


2B90 


C8 


RET 


Z 


2B91 


C32D30 


JP 


302DH 


2B94 


FEFB 


GP 


OFBH 


2B96 


2008 


JR 


NZ,2BA0H 


2B98 


OB 


DEC 


BC 


2B99 


OB 


DEC 


BC 


2B9A 


OB 


DEC 


BC 


2B9B 


OB 


DEC 


BC 


2B9C 


14 


ING 


D 


2B9D 


14 


ING 


D 


2B9E 


14 


ING 


D 


2B9F 


14 


ING 


D 


2BA0 


FE95 


GP 


95H 


2BA2 


CG240B 


GALL 


Z, 0B24H 


2BA5 


D67F 


SUB 


7FH 


2BA7 


E5 


PUSH 


HL 


2BA8 


5F 


LD 


E,A 


2BA9 


215016 


LD 


HL, 1650H 


2 BAG 


7E 


LD 


A, (HL) 


2 BAD 


B7 


OR 


A 


2BAE 


23 


ING 


HL 


2BAF 


F2AG2B 


JP 


P, 2 BACH 


2BB2 


ID 


DEC 


E 


2BB3 


20F7 


JR 


NZ,2BACH 


2BB5 


E67F 


AND 


7FH 


2BB7 


02 


LD 


(BC) ,A 


2BB8 


03 


ING 


BC 


2BB9 


15 


DEC 


D 


2BBA 


CAD82 8 


JP 


Z,28D8H 


2BBD 


7E 


LD 


A, (HL) 


2BBE 


23 


ING 


HL 


2BBF 


B7 


OR 


A 



DECODE LINE TO BUFFER 

HL => DECODED LINE 

OUTPUT LINE 

NEW LINE 

LOOP FOR MORE 

GET CHARACTER 

NULL? (END OF LINE?) 

RETURN IF SO 

DISPLAY (PRINT?) CHARACTER. 

NEXT CHARACTER. 

LOOP UNTIL DONE 

SAVE POSITION 

HL => KEYBOARD BUFFER 

BC => KEYBOARD BUFFER 

RESTORE POSITION 

CONTINUE 

UNUSED BYTE 

MOVE UP IN BUFFER 

ONE LESS CHARACTER LEFT 

RETURN IF BUFFER FULL 

MOVE FORWARD IN TEXT 

GET CHARACTER 

END OF LINE? 

STORE CHARACTER IN BUFFER 

RETURN IF END OF LINE 

CONTINUE 

SINGLE QUOTE? 

SKIP IF NOT 

BACK UP 

4 BYTES 



INCREASE SPACE 
LEFT BY 
4 BYTES 

ELSE? 

BACK UP IF SO 

ADJUST TOKEN VALUE 

SAVE POSITION IN TEXT 

E = TOKEN VALUE 

HL => RESERVED WORDS 

GET CHARACTER 

TEST IT 

NEXT CHARACTER 

LOOP IF NOT NEW WORD 

ONE LESS TO SKIP 

TO NEXT WORD IF NOT DONE 

MASK OFF BIT 7 

SAVE CHARACTER IN BUFFER 

NEXT BUFFER LOCATION 

ONE LESS BYTE FREE 

JUMP IF BUFFER FULL 

GET NEXT CHARACTER 

NEXT BYTE 

TEST CHARACTER 
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2BC0 F2B72B JP P,2BB7H 
2BC3 El POP HL 
2BC4 18C6 JR 2B8CH 



LOOP UNTIL NEW WORD 
RESTORE TEXT POSITION 
CONTINUE 



DELETE 



2BC6 


CDIOIB 


CALL 


IBIOH 


2BC9 


Dl 


POP 


DE 


2BCA 


C5 


PUSH 


BC 


2BCB 


C5 


PUSH 


BC 


2BCC 


CD2C1B 


CALL 


1B2CH 


2BCF 


3005 


JR 


NC,2BD6H 


2BD1 


54 


LD 


D,H 


2BD2 


5D 


LD 


E,L 


2BD3 


E3 


EX 


(SP) ,HL 


2BD4 


E5 


PUSH 


HL 


2BD5 


DF 


RST 


18H 


2BD6 


D24A1E 


JP 


NC,1E4AH 


2BD9 


212919 


LD 


HL, 1929H 


2BDC 


CDA72 8 


CALL 


2 8A7H 


2BDF 


CI 


POP 


BC 


2BE0 


21E81A 


LD 


HL, 1AE8H 


2BE3 


E3 


EX 


(SP) ,HL 


2BE4 


EB 


EX 


DE,HL 


2BE5 


2AF940 


LD 


HL, (40F9H) 


2BE8 


lA 


LD 


A, (DE) 


2BE9 


02 


LD 


(BC) ,A 


2 BE A 


03 


INC 


BC 


2BEB 


13 


INC 


DE 


2BEC 


DF 


RST 


18H 


2BED 


20F9 


JR 


NZ,2BE8H 


2BEF 


60 


LD 


H,B 


2BF0 


69 


LD 


L,C 


2BF1 


22F940 


LD 


(40F9H) ,HL 


2BF4 


C9 


RET 
CSAVE 





2BF5 
2BF8 
2BFB 
2BFC 
2BFF 
2C01 
2C04 
2C07 
2C08 
2C0B 
2C0E 
2C0F 
2C12 
2C13 
2C14 
2C17 
2C18 
2C1A 
2C1D 
2C1E 



CD8402 

CD3723 

E5 

CD132A 

3ED3 

CD6402 

CD6102 

lA 

CD6402 

2AA44 

EB 

2AF940 

lA 

13 

CD6402 

DF 

20F8 

CDF801 

El 

C9 



CALL 

CALL 

PUSH 

CALL 

LD 

CALL 

CALL 

LD 

CALL 

LD 

EX 

LD 

LD 

INC 

CALL 

RST 

JR 

CALL 

POP 

RET 



0284H 

2337H 

HL 

2A13H 

A, 0D3H 

0264H 

0261H 

A, (DE) 

0264H 

HL, (40A4H) 

DE,HL 

HL, (40F9H) 

A, (DE) 

DE 

0264H 

18H 

NZ,2C12H 

01F8H 

HL 



GET START & END LINES 

GET END LINE 

SAVE START POSITION 

TWICE 
LOOK FOR END LINE 
SKIP IF NOT FOUND 
DE => FIRST LINE 
AFTER DELETION 
SAVE POINTER. GET START 
SAVE START 

LAST GREATER OR EQUAL TO FIRST? 
FC ERROR IF SO 
DISPLAY 
"READY?" 

BC => START OF AREA TO DELETE 
RETURN THROUGH UPDATE 
SAVE RETURN THROUGH UPDATE 
DE => AREA AFTER DELETION 
HL => END OF AREA 
GET BYTE 
SAVE BYTE 
NEXT 
BYTES . 
DONE YET? 
LOOP IF NOT 
HL => NEW END 
PROGRAM 

SAVE NEW END OF PROGRAM 
DONE 



TURN TAPE ON WRITE LEADER 

EVALUATE FILENAME 

SAVE POSITION 

DE => FILENAME 

WRITE 0D3H 

BYTE AS MARKET 

WRITE IT TWICE MORE 

GET FILENAME 

WRITE FILENAME 

DE => START OF PROGRAM 

DE => END OF PROGRAM 

GET BYTE 
NEXT BYTE 
SAVE TO TAPE 
DONE YET? 
LOOP IF NOT 
TURN OFF TAPE 
RESTORE POSITION 
DONE 
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CLOAD 



2C1F 


D6B2 


SUB 


0B2H 


2C21 


2802 


JR 


Z,2C25H 


2C23 


AF 


XOR 


A 


2C24 


012F23 


LD 


BC,232FH 


2C25 


2F 


CPL 




2C25 


23 


INC 


HL 


2C27 


F5 


PUSH 


AF 


2C28 


7E 


LD 


A, (HL) 


2C29 


B7 


OR 


A 


2C2A 


2807 


JR 


Z,2C33H 


2C2C 


CD3723 


CALL 


2337H 


2C2F 


CD132A 


CALL 


2A13H 


2C32 


lA 


LD 


A, (DE) 


2C33 


6F 


LD 


L,A 


2C34 


Fl 


POP 


AF 


2C35 


B7 


OR 


A 


2C36 


67 


LD 


H,A 


2C37 


222141 


LD 


(4121H) ,HL 


2C3A 


CC4D1B 


CALL 


Z,1B4DH 


2C3D 


210000 


LD 


HL, OOOOH 


2C40 


CD9302 


CALL 


0293H 


2C43 


2A2141 


LD 


HL, (4121H) 


2C46 


EB 


EX 


DE,HL 


2C47 


0603 


LD 


B,03H 


2C49 


CD3502 


CALL 


0235H 


2C4C 


D6D3 


SUB 


0D3H 


2C4E 


20F7 


JR 


NZ,2C47H 


2C50 


10F7 


DJNZ 


2C49H 


2C52 


CD3502 


CALL 


0235H 


2C55 


IC 


INC 


E 


2C56 


ID 


DEC 


E 


2C57 


2803 


JR 


Z,2C5CH 


2C59 


BB 


CP 


E 


2C5A 


2037 


JR 


NZ,2C93H 


2C5C 


2AA44 


LD 


HL, (40A4H) 


2C5F 


0603 


LD 


B,03H 


2C61 


CD3502 


CALL 


0235H 


2C64 


5F 


LD 


E,A 


2C65 


96 


SUB 


(HL) 


2C66 


A2 


AND 


D 


2C67 


2021 


JR 


NZ,2C8AH 


2C69 


73 


LD 


(HL) ,E 


2C6A 


CD6C19 


CALL 


196CH 


2C6D 


7E 


LD 


A, (HL) 


2C6E 


B7 


OR 


A 


2C6F 


23 


INC 


HL 


2C70 


2 0ED 


JR 


NZ,2C5FH 


2C72 


CD2C02 


CALL 


022CH 


2C75 


lOEA 


DJNZ 


2C61H 


2C77 


22F940 


LD 


(40F9H) ,HL 


2C7A 


CDF801 


CALL 


01F8H 


2C7D 


212919 


LD 


HL, 1929H 


2C80 


CDA72 8 


CALL 


2 8A7H 


2C83 


2AA44 


LD 


HL, (40A4H) 


2C86 


E5 


PUSH 


HL 


2C87 


C3E81A 


JP 


1AE8H 



CLOAD? (VERIFY) 

JUMP IF SO 

RESET VERIFY FLAG 

MASK TO 2C2 7H 

SET VERIFY FLAG 

UPDATE POSITION 

SAVE VERIFY FLAG 

END OF 

COMMAND? 

SKIP IF SO 

EVALUATE FILENAME 

DE => FILENAME 

GET FILENAME 

SAVE FILENAME IN L 

GET VERIFY FLAG 

VERIFY? 

SAVE VERIFY FLAG 

& FILENAME IN ACCUM 

NEW IF NO VERIFY 

THIS IS NOT PRINT # 

READ TAPE HEADER 

GET FLAG & FILENAME 

DE = FLAG & FILENAME 

READ 3 MARKERS 

READ BYTE 

MARKER? 

RESTART IF NOT 

LOOP FOR MORE MARKERS 

READ FILENAME 

NULL 

FILENAME 

SKIP & LOAD IF SO 

CORRECT FILENAME 

NEXT FILE IF NOT 

POSITION TO PROGRAM START 

EOF = 3 NULLS 

READ BYTE 

SAVE IN E 

COMPARE WITH MEMORY 

COMBINE WITH VERIFY FLAG 

JUMP IF VERIFY & BAD 

SAVE BYTE 

CHECK MEMORY SPACE 

GET BYTE 

END OF LINE? 

NEXT BYTE 

RESET EOF IF NOT 

TWINKLE, TWINKLE, LITTLE * 

LOOP TO PROGRAM END 

SAVE END OF PROGRAM 

TURN OFF TAPE 

PRINT 

"READY" 

POSITION TO PROGRAM START 

SAVE POSITION 

UPDATE POINTERS & RETURN 
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2C8A 


CDBD31 


CALL 


31BDH 


2C8D 


CDA72 8 


CALL 


2 8A7H 


2C90 


C3181A 


JP 


1A18H 


2C93 


323E3C 


LD 


(3C3EH) ,A 


2C96 


0603 


LD 


B,03H 


2C98 


CD3502 


CALL 


0235H 


2C9B 


B7 


OR 


A 


2C9C 


20F8 


JR 


NZ,2C96H 


2C9E 


10F8 


DJNZ 


2C98H 


2CA0 


CD9602 


CALL 


0296H 


2CA3 


18A2 


JR 


2C47H 


2 CAS 


4241440D00 








PEEK 




2CAA 


CD7F0A 


CALL 


0A7FH 


2 CAD 


7E 


LD 


A, (HL) 


2CAE 


C3F827 


JP 
POKE 


27F8H 


2CB1 


CD022B 


CALL 


2B02H 


2CB4 


D5 


PUSH 


DE 


2CB5 


CF 


RST 


08H 


2CB6 


2C 


11 T1 




2CB7 


CD1C2B 


CALL 


2B1CH 


2CBA 


Dl 


POP 


DE 


2CBB 


12 


LD 


(DE) ,A 


2CBC 


C9 


RET 
USING 




2CBD 


CD3823 


CALL 


2338H 


2CC0 


CDF4 0A 


CALL 


0AF4H 


2CC3 


CF 


RST 


08H 


2CC4 


3B 


II . II 




2CC5 


EB 


EX 


DE,HL 


2CC6 


2A2141 


LD 


HL, (4121H) 


2CC9 


1808 


JR 


2CD3H 


2CCB 


3ADE4 


LD 


A, (40DEH) 


2CCE 


B7 


OR 


A 


2CCF 


280C 


JR 


Z,2CDDH 


2CD1 


Dl 


POP 


DE 


2CD2 


EB 


EX 


DE,HL 


2CD3 


E5 


PUSH 


HL 


2CD4 


AF 


XOR 


A 


2CD5 


32DE40 


LD 


(40DEH) ,A 


2CD8 


BA 


CP 


D 


2CD9 


F5 


PUSH 


AF 


2CDA 


D5 


PUSH 


DE 


2CDB 


46 


LD 


B, (HL) 


2 CDC 


BO 


OR 


B 


2CDD 


CA4A1E 


JP 


Z,1E4AH 


2CE0 


23 


INC 


HL 


2CE1 


4E 


LD 


C, (HL) 


2CE2 


23 


INC 


HL 


2CE3 


66 


LD 


H, (HL) 


2CE4 


69 


LD 


L,C 


2CE5 


181C 


JR 


2D03H 


2CE7 


58 


LD 


E,B 



RESET TAPE I/O 
PRINT "BAD" 
GO TO READY 
DISPLAY FILENAME 
EOF = 3 MILES 
READ BYTE 
NULL? 

RESET IF NOT 
LOOP TO END 
READ NEW HEADER 
TRY AGAIN 
"BAD" OD 



HL = ARGUMENT 

GET BYTE 

RETURN AS INTEGER 



EVALUATE ADDRESS 

SAVE ADDRESS 

SYNTAX ERROR IF 

NEXT CHARACTER NOT COMMA 

EVALUATE VALUE TO STORE 

RESTORE ADDRESS 

STORE VALUE IN ADDRESS 

DONE 



EVALUATE FORMAT STRING 

TM ERROR IF NOT STRING 

SYNTAX ERROR IF 

NEXT CHARACTER NOT " ; " 

SAVE POSITION IN DE 

GET STRING POINTER 

CONTINUE 

GET DELIMITER 

NULL? (END OF LINE) 

FC ERROR IF SO 

GET STRING POINTER 

SAVE POSITION IN TEXT 

SAVE POINTER TO FORMAT 

CLEAR 

SEPARATOR CHARACTER. 

SET STATUS 

SAVE SEPARATOR CHARACTER 

SAVE POSITION IN TEXT 

GET LENGTH OF FORMAT 

TEST IT FOR NULL 

FC ERROR IF SO 

HL => FORMAT STRING 



CONTINUE 

SAVE FORMAT SIZE LEFT 
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2CE8 


E5 


PUSH 


HL 


2CE9 


0E02 


LD 


C,02H 


2CEB 


7E 


LD 


A, (HL) 


2CEC 


23 


INC 


HL 


2CED 


FE25 


CP 


25H 


2CEF 


CA172E 


JP 


Z,2E17H 


2CF2 


FE2 


CP 


20H 


2CF4 


2003 


JR 


NZ,2CF9H 


2CF6 


OC 


INC 


C 


2CF7 


10F2 


DJNZ 


2CEBH 


2CF9 


El 


POP 


HL 


2CFA 


43 


LD 


B,E 


2CFB 


3E25 


LD 


A,25H 


2CFD 


CD492E 


CALL 


2E49H 


2D00 


CD2A03 


CALL 


03 2AH 


2D03 


AF 


XOR 


A 


2D04 


5F 


LD 


E,A 


2D05 


57 


LD 


D,A 


2D06 


CD492E 


CALL 


2E49H 


2D09 


57 


LD 


D,A 


2D0A 


7E 


LD 


A, (HL) 


2D0B 


23 


INC 


HL 


2D0C 


FE21 


CP 


21H 


2D0E 


CA142E 


JP 


Z,2E14H 


2D11 


FE23 


CP 


23H 


2D13 


2837 


JR 


Z,2D4CH 


2D15 


05 


DEC 


B 


2D16 


CAFE2D 


JP 


Z,2DFEH 


2D19 


FE2B 


CP 


2BH 


2D1B 


3E08 


LD 


A,08H 


2D1D 


28E7 


JR 


Z,2D06H 


2D1F 


2B 


DEC 


HL 


2D20 


7E 


LD 


A, (HL) 


2D21 


23 


INC 


HL 


2D22 


FE2E 


CP 


2 EH 


2D24 


2840 


JR 


Z,2D66H 


2D26 


FE25 


CP 


25H 


2D28 


28BD 


JR 


Z,2CE7H 


2D2A 


BE 


CP 


(HL) 


2D2B 


20D0 


JR 


NZ,2CFDH 


2D2D 


FE24 


CP 


24H 


2D2F 


2814 


JR 


Z,2D45H 


2D31 


FE2A 


CP 


2 AH 


2D33 


20C8 


JR 


NZ,2CFDH 


2D35 


78 


LD 


A,B 


2D36 


FE02 


CP 


02H 


2D38 


23 


INC 


HL 


2D39 


3803 


JR 


C,2D3EH 


2D3B 


7E 


LD 


A, (HL) 


2D3C 


FE24 


CP 


24H 


2D3E 


3E20 


LD 


A,20H 


2D40 


2007 


JR 


NZ,2D49H 


2D42 


05 


DEC 


B 


2D43 


IC 


INC 


E 


2D44 


FEAF 


CP 


OAFH 


2D45 


AF 


XOR 


A 


2D46 


C610 


ADD 


A,10H 



SAVE POSITION IN FORMAT 

FIELD SIZE = 2 

GET CHARACTER 

NEXT 

PERCENT SIGN? 

DISPLAY FIELD IF SO 

SPACE? 

RESET IF NOT 

INCREASE FIELD SIZE 

LOOP TO END OF FORMAT 

RESTORE POSITION IN FORMAT 

RESTORE FORMAT SIZE LEFT 

RESTORE CHARACTER TO DISPLAY 

DISPLAY "+" IF REQUESTED 

DISPLAY CHARACTER. 

CLEAR FLAGS 

ZERO E AND D 

PRINT LEADING + IF REQUIRED 

SAVE EDIT FLAG 

GET FORMAT CHARACTER. 

NEXT BYTE 

" ! " ? 

JUMP IF SO 

" # " ? 

JUMP IF SO 

ONE LESS CHARACTER IN FORMAT 

JUMP IF DONE WITH FORMAT 

" + " ? 

INCLUDE SIGN IF SO 

LOOP BACK IF SO 

BACK UP AGAIN 

GET FORMAT CHARACTER 

POINT TO NEXT CHARACTER 

PERIOD? 

JUMP IF SO 

PERCENT SIGN? 

JUMP IF SO 

SAME AS NEXT CHARACTER? 

JUMP IF NOT 

DOLLAR'S SIGN? 

JUMP IF SO 

ASTERISK? 

JUMP IF NOT 

ONLY ONE 

CHARACTER LEFT IN FORMAT 

MOVE FORWARD 

SKIP IF SO 

GET CHARACTER 

DOLLAR'S SIGN? 

INCLUDE LEADING ASTERISKS 

NO $? SKIP IF SO 

ONE LESS CHARACTER IN FORMAT 

ONE MORE CHARACTER LEFT OF DECIMAL 

SKIP TO 2D46H 

CLEAR UPDATE NO LEADING ASTERISKS 

INCLUDE FLOATING DOLLAR'S SIGN 
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2D48 


23 


INC 


HL 


2D49 


IC 


INC 


E 


2D4A 


82 


ADD 


A,D 


2D4B 


57 


LD 


D,A 


2D4C 


IC 


INC 


E 


2D4D 


OEOO 


LD 


C, OOH 


2D4F 


05 


DEC 


B 


2D50 


2847 


JR 


Z,2D99H 


2D52 


7E 


LD 


A, (HL) 


2D53 


23 


INC 


HL 


2D54 


FE2E 


CP 


2 EH 


2D56 


2818 


JR 


Z,2D70H 


2D58 


FE23 


CP 


23H 


2D5A 


28F0 


JR 


Z,2D4CH 


2D5C 


FE2C 


CP 


2CH 


2D5E 


201A 


JR 


NZ,2D7AH 


2D60 


7A 


LD 


A,D 


2D61 


F640 


OR 


40H 


2D63 


57 


LD 


D,A 


2D64 


18E6 


JR 


2D4CH 


2D66 


7E 


LD 


A, (HL) 


2D67 


FE23 


CP 


23H 


2D69 


3E2E 


LD 


A,2EH 


2D6B 


2090 


JR 


NZ,2CFDH 


2D6D 


OEOl 


LD 


C,01H 


2D6F 


23 


INC 


HL 


2D70 


OC 


INC 


C 


2D71 


05 


DEC 


B 


2D72 


2825 


JR 


Z,2D99H 


2D74 


7E 


LD 


A, (HL) 


2D75 


23 


INC 


HL 


2D76 


FE23 


CP 


23H 


2D78 


28F6 


JR 


Z,2D70H 


2D7A 


D5 


PUSH 


DE 


2D7B 


11972D 


LD 


DE,2D97H 


2D7E 


D5 


PUSH 


DE 


2D7F 


54 


LD 


D,H 


2D80 


5D 


LD 


E,L 


2D81 


FE5B 


CP 


5BH 


2D83 


CO 


RET 


NZ 


2D84 


BE 


CP 


(HL) 


2D85 


CO 


RET 


NZ 


2D86 


23 


INC 


HL 


2D87 


BE 


CP 


(HL) 


2D88 


CO 


RET 


NZ 


2D89 


23 


INC 


HL 


2D8A 


BE 


CP 


(HL) 


2D8B 


CO 


RET 


NZ 


2D8C 


23 


INC 


HL 


2D8D 


78 


LD 


A,B 


2D8E 


D604 


SUB 


04H 


2D90 


D8 


RET 


C 


2D91 


Dl 


POP 


DE 


2D92 


Dl 


POP 


DE 


2D93 


47 


LD 


B,A 


2D94 


14 


INC 


D 


2D95 


23 


INC 


HL 



NEXT FORMAT CHARACTER. 

ONE MORE CHARACTER LEFT OF DECIMAL 

UPDATE 

EDIT FLAG 

ONE MORE CHARACTER LEFT OF DECIMAL 

NO CHARACTERS RIGHT OF DECIMAL 

ONE LESS CHARACTER IN FORMAT 

JUMP IF FORMAT USED UP 

GET NEXT CHARACTER. 

POINT TO NEXT BYTE 

DECIMAL POINT? 

JUMP IF SO 

" # " ? 

JUMP IF SO 

COMMA? 

JUMP IF NOT 

GET EDIT FLAG 

INCLUDE COMMAS 

SAVE EDIT FLAG 

LOOP 

GET NEXT CHARACTER. 

" # " ? 

RESTORE PERIOD 

JUMP IF NOT "#" . 

ONE CHARACTER RIGHT OF DECIMAL 

MOVE FORWARD IN FORMAT 

INCREASE CHARACTERS RIGHT OF DECIMAL 

DECREASE CHARACTERS LEFT IN FORMAT 

JUMP IF FORMAT USED UP 

GET CHARACTER FROM FORMAT 

NEXT CHARACTER 

" # " ? 

LOOP FOR MORE IF SO 

SAVE EDIT FLAG 

SET RETURN 

THROUGH 2D97H 

DE = CURRENT FORMAT POSITION 

EXPONENTIAL NOTATION? 

RETURN IF NOT 

CHECK FOR SECOND UP-ARROW. 

RETURN IF NOT FOUND 

CHECK 

FOR THIRD UP-ARROW. 

RETURN IF NOT FOUND 

CHECK 

FOR FOURTH UP -ARROW. 

RETURN IF NOT FOUND 

NEXT BYTE 

FORMAT SIZE REMAINING 

DECREASED BY 4 

RETURN IF FORMAT USED UP 

CLEAR RETURN 

GET EDIT FLAG 

SAVE FORMAT SIZE REMAINING 

FLAG EXPONENTIAL NOTATION 

NEXT BYTE 
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2D96 


CAEBDl 


JP 


Z, ODIEBH 


2D97 


EB 


EX 


DE,HL 


2D98 


Dl 


POP 


DE 


2D99 


7A 


LD 


A,D 


2D9A 


2B 


DEC 


HL 


2D9B 


IC 


INC 


E 


2D9C 


E608 


AND 


08H 


2D9E 


2015 


JR 


NZ,2DB5H 


2DA0 


ID 


DEC 


E 


2 DAI 


78 


LD 


A,B 


2DA2 


B7 


OR 


A 


2DA3 


2810 


JR 


Z,2DB5H 


2 DAS 


7E 


LD 


A, (HL) 


2DA6 


D62D 


SUB 


2DH 


2 DAB 


2806 


JR 


Z,2DB0H 


2DAA 


FEFE 


CP 


OFEH 


2DAC 


2007 


JR 


NZ,2DB5H 


2 DAE 


3E08 


LD 


A,08H 


2DB0 


C604 


ADD 


A, 04H 


2DB2 


82 


ADD 


A,D 


2DB3 


57 


LD 


D,A 


2DB4 


05 


DEC 


B 


2DB5 


El 


POP 


HL 


2DB6 


Fl 


POP 


AF 


2DB7 


2850 


JR 


Z,2E09H 


2DB9 


C5 


PUSH 


BC 


2 DBA 


D5 


PUSH 


DE 


2DBB 


CD3723 


CALL 


2337H 


2DBE 


Dl 


POP 


DE 


2DBF 


CI 


POP 


BC 


2DC0 


C5 


PUSH 


BC 


2DC1 


E5 


PUSH 


HL 


2DC2 


43 


LD 


B,E 


2DC3 


78 


LD 


A,B 


2DC4 


81 


ADD 


A,C 


2DC5 


FE19 


CP 


19H 


2DC7 


D24A1E 


JP 


NC,1E4AH 


2DCA 


7A 


LD 


A,D 


2DCB 


F680 


OR 


80H 


2DCD 


CDBEOF 


CALL 


OFBEH 


2DD0 


CDA72 8 


CALL 


2 8A7H 


2DD3 


El 


POP 


HL 


2DD4 


2B 


DEC 


HL 


2DD5 


D7 


RST 


lOH 


2DD6 


37 


SCF 




2DD7 


280D 


JR 


Z,2DE6H 


2DD9 


32DE40 


LD 


(40DEH) ,A 


2DDC 


FE3B 


CP 


3BH 


2DDE 


2805 


JR 


Z,2DE5H 


2DE0 


FE2C 


CP 


2CH 


2DE2 


C29719 


JP 


NZ, 1997H 


2DE5 


D7 


RST 


lOH 


2DE6 


CI 


POP 


BC 


2DE7 


EB 


EX 


DE,HL 


2DE8 


El 


POP 


HL 


2DE9 


E5 


PUSH 


HL 


2DEA 


F5 


PUSH 


AF 



SKIP TO 2D99H MASK 

RESTORE OLD POSITION 

RESTORE EDIT INFO 

GET EDIT FLAG 

BACKUP 

EXPAND LEFT FOR SIGN 

INCLUDE SIGN? 

JUMP IF SO 

RESTORE LEFT SIZE 

GET FORMAT SIZE LEFT 

NOTHING LEFT? 

SKIP IF SO 

GET CHARACTER. 

II _ II 9 

SKIP OF SO 

" + " ? 

SKIP IF NOT 

INCLUDE SIGN 

TRAILING SIGN, IF ANY 

UPDATE 

EDITING FLAG 

DECREASING FORMAT SIZE LEFT 

RESTORE FORMAT SIZE LEFT 

NO MORE DATA TO PRINT? 

JUMP IF NOT 

SAVE FORMATTING INFO 

EVALUATE EXPRESSION 
RESTORE 

FORMATTING INFO 
SAVE FORMAT SIZE LEFT 
SAVE TEXT POSITION 

B = # CHARACTERS LEFT OF DECIMAL 
COMPUTE 

TOTAL FIELD SIZE 
2 5 OR MORE CHARACTERS? 
FC ERROR IF SO 
PUT EDIT FLAG IN A 
COMMAND FORMATTING 
CONVERT ACCUM TO ASCII 
OUTPUT FORMATTED NUMBER 
RESTORE TEXT POSITION 
BACKUP 

GET NEXT CHARACTER. 
REQUEST CARRIAGE RETURN 
SKIP IF END OF STATEMENT 
SAVE CHARACTER 
SEMICOLON? 
SKIP IF SO. 
COMMA? 

SYNTAX ERROR IF NOT. 
GET NEXT CHARACTER. 
RESTORE FORMAT SIZE LEFT 
SAVE POSITION IN TEXT 
RESTORE & SAVE 
FORMAT STRING POINTER 
SAVE TEXT CHARACTER 
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2DEB 
2DEC 
2DED 
2DEE 
2DEF 
2DF0 
2DF1 
2DF2 
2DF3 
2DF5 
2DF6 
2DF7 
2DF8 
2DF9 
2DFC 
2DFE 
2E01 
2E04 
2E05 
2E06 
2E09 
2E0C 
2E0D 
2E10 
2E11 
2E14 
2E16 
2E17 
2E18 
2E19 
2E1C 
2E1D 
2E1E 
2E20 
2E21 
2E24 
2E27 
2E28 
2E29 
2E2A 
2E2D 
2E2E 
2E30 
2E31 
2E34 
2E37 
2E3A 
2E3B 
2E3C 
2E3D 
2E3F 
2E40 
2E41 
2E44 
2E47 
2E49 
2E4A 



D5 

7E 

90 

23 

4E 

23 

66 

69 

1600 

5F 

19 

78 

B7 

C2032D 

1806 

CD492E 

CD2A03 

El 

Fl 

C2CB2C 

DCFE2 

E3 

CDDD2 9 

El 

C36921 

OEOl 

3EF1 

Fl 

05 

CD492E 

El 

Fl 

28E9 

C5 

CD3723 

CDF4 0A 

CI 

C5 

E5 

2A2141 

41 

OEOO 

C5 

CD682A 

CDAA2 8 

2A2141 

Fl 

96 

47 

3E20 

04 

05 

CAD32D 

CD2A03 

18F7 

F5 

7A 



PUSH 
LD 

SUB 

INC 

LD 

INC 

LD 

LD 

LD 

LD 

ADD 

LD 

OR 

JP 

JR 

CALL 

CALL 

POP 

POP 

JP 

CALL 

EX 

CALL 

POP 

JP 

LD 

LD 

POP 

DEC 

CALL 

POP 

POP 

JR 

PUSH 

CALL 

CALL 

POP 

PUSH 

PUSH 

LD 

LD 

LD 

PUSH 

CALL 

CALL 

LD 

POP 

SUB 

LD 

LD 

INC 

DEC 

JP 

CALL 

JR 

PUSH 

LD 



DE 

A, (HL) 

B 

HL 

C, (HL) 
HL 

H, (HL) 
L,C 

D, OOH 
E,A 
HL,DE 
A,B 

A 

NZ,2D03H 
2E04H 
2E49H 
03 2AH 
HL 
AF 

NZ,2CCBH 
C,20FEH 
(SP) ,HL 
2 9DDH 
HL 

2169H 
C, OIH 
A, OFIH 
AF 
B 

2E49H 
HL 
AF 

Z,2E09H 
BC 

2337H 
0AF4H 
BC 
BC 
HL 

HL, (4121H) 
B,C 
C, OOH 
BC 
2A68H 

2 8AAH 

HL, (4121H) 
AF 
(HL) 
B,A 
A,20H 
B 
B 
Z,2DD3H 

03 2AH 
2E40H 
AF 
A,D 



SAVE POSITION IN TEXT 

GET FORMAT STRING LENGTH 

A = OFFSET INTO FORMAT 

HL 

= > 

FORMAT 

STRING 

DE = 

OFFSET INTO FORMAT 

HL => CURRENT POSITION IN FORMAT 

ANYTHING LEFT TO USE 

IN FORMAT STRING? 

JUMP IF SO 

SKIP IF NOT 



DISPLAY 



IF REQUESTED 



DISPLAY CHARACTER 

GET POSITION IN TEXT 

GET CURRENT CHARACTER 

RE -USE FORMAT IF NOT DONE 

CARRIAGE RETURN IF REQUESTED 

SAVE POSITION, GET SIRING POINTER 

CLEAN UP WORKSPACE 

RESTORE POSITION IN TEXT 

RESET I/O & RETURN 

ONE CHARACTER OUTPUT FIELD 

SKIP TO 2E18H 

CLEAR STACK 

ONE LESS CHARACTER IN FORMAT 



DISPLAY 



IF REQUESTED 



RESTORE POSITION IN TEXT 

MORE DATA TO PRINT 

SKIP OUT IF NOT 

SAVE SIZE OF FORMAT LEFT 

EVALUATE EXPRESSION 

TM ERROR IF NOT STRING 

RESTORE & SAVE SIZE 

OF FORMAT LEFT 

SAVE POSITION IN TEXT 

HL => STRING DESCRIPTOR 

B = # CHARACTERS IN FIELD 

OFFSET = 

SAVE FIELD SIZE 

GET LEFT$ 

OUTPUT FIELD 

HL => STRING DESCRIPTOR 

RESTORE FIELD SIZE 

SUBTRACT PART ALREADY OUTPUT 

B = # SPACES TO DISPLAY 

CHAR = SPACE 

INCREASE # SPACES BY ONE 

ONE LESS SPACE TO DISPLAY 

JUMP IF DONE 

DISPLAY 

LOOP UNTIL DONE 

SAVE STATUS 

GET D 
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2E4B 


B7 


OR 


A 


TEST IT 


2E4C 


3E2B 


LD 


A,2BH 


A = " + " 


2E4E 


C42A03 


CALL 


NZ, 032AH 


PRINT IF NON-ZERO 


2E51 


Fl 


POP 


AF 


RESTORE STATUS 


2E52 


C9 


RET 
RESULT : 




DONE 






PRINT " + " IF Do 


0. 






SYNTAX 


ERROR EDIT 




2E53 


32 9A4 


LD 


(409AH) ,A 


ZERO ERR 


2E56 


2 AEA4 


LD 


HL, (40EAH) 


GET ERL 


2E59 


B4 


OR 


H 


DIRECT 


2E5A 


A5 


AND 


L 


MODE? 


2E5B 


3C 


INC 


A 




2E5C 


EB 


EX 


DE,HL 


DE = ERL 


2E5D 


C8 


RET 


Z 


RETURN IF DIRECT MODE 


2E5E 


1804 


JR 
EDIT 


2E64H 


EDIT LINE 


2E60 


CD4F1E 


CALL 


1E4FH 


GET LINE # TO EDIT 


2E63 


CO 


RET 


NZ 


RETURN IF MORE PARAMS 


2E64 


El 


POP 


HL 


CLEAR STACK 


2E65 


EB 


EX 


DE,HL 


HL = LINE # 


2E66 


22EC40 


LD 


(40ECH) ,HL 


SAVE LINE # 


2E69 


EB 


EX 


DE,HL 


DE = LINE # 


2E6A 


CD2C1B 


CALL 


1B2CH 


FIND LINE POSITION 


2E6D 


D2D91E 


JP 


NC, 1ED9H 


UL ERROR IF NOT FOUND 


2E70 


60 


LD 


H,B 


HL => LINE 


2E71 


69 


LD 


L,C 




2E72 


23 


INC 


HL 


SKIP PAST 


2E73 


23 


INC 


HL 


FORWARD POINTER 


2E74 


4E 


LD 


C, (HL) 


BC = LINE # 


2E75 


23 


INC 


HL 




2E76 


46 


LD 


B, (HL) 




2E77 


23 


INC 


HL 




2E78 


C5 


PUSH 


BC 


SAVE LINE # 


2E79 


CD7E2B 


CALL 


2B7EH 


EXPAND LINE TO BUFFER 


2E7C 


El 


POP 


HL 


GET & SAVE 


2E7D 


E5 


PUSH 


HL 


LINE # 


2E7E 


CDAFOF 


CALL 


OFAFH 


DISPLAY LINE # 


2E81 


3E20 


LD 


A,20H 


DISPLAY 


2E83 


CD2A03 


CALL 


03 2AH 


A SPACE 


2E86 


2AA740 


LD 


HL, (40A7H) 


HL => BUFFER 


2E89 


3E0E 


LD 


A,OEH 


TURN 


2E8B 


CD2A03 


CALL 


03 2AH 


ON CURSOR 


2E8E 


E5 


PUSH 


HL 


SAVE BUFFER START 


2E8F 


OEFF 


LD 


C, OFFH 


LENGTH = -1 


2E91 


OC 


INC 


C 


LENGTH = LENGTH + 1 


2E92 


7E 


LD 


A, (HL) 


END OF 


2E93 


B7 


OR 


A 


LINE? 


2E94 


23 


INC 


HL 


NEXT CHARACTER 


2E95 


2 0FA 


JR 


NZ,2E91H 


LOOP IF NOT 


2E97 


El 


POP 


HL 


GET BUFFER START 


2E98 


47 


LD 


B,A 


COLUMN = 


2E99 


1600 


LD 


D, OOH 


N = 


2E9B 


CD8403 


CALL 


0384H 


GET COMMAND 



MOD III ROM COMMENTED (C) 1981 SOFT SECTOR MARKETING INC. 

PAGE 124 



2E9E 


D630 


SUB 


30H 


ADJUST VALUE 


2EA0 


380E 


JR 


C,2EB0H 


JUMP 


IF 


NOT NUMERIC 


2EA2 


FEOA 


CP 


OAH 


NUMERIC? 


2EA4 


3 0A 


JR 


NC,2EB0H 


JUMP 


IF 


NOT NUMERIC 


2EA6 


5F 


LD 


E,A 


N 






2EA7 


7A 


LD 


A,D 


= 






2EA8 


07 


RLCA 




N 






2EA9 


07 


RLCA 




* 






2EAA 


82 


ADD 


A,D 


10 




2EAB 


07 


RLCA 






+ 




2EAC 


83 


ADD 


A,E 




VALUE 


2EAD 


57 


LD 


D,A 


SAVE 


N 




2EAE 


18EB 


JR 


2E9BH 


LOOP 






2EB0 


E5 


PUSH 


HL 


SET RETURN 


2EB1 


21992E 


LD 


HL,2E99H 


THROUGH 


2EB4 


E3 


EX 


(SP) ,HL 




2E99H 


2EB5 


15 


DEC 


D 


N = 0? 




2EB6 


14 


INC 


D 








2EB7 


C2BB2E 


JP 


NZ,2EBBH 


SKIP 


IF 


NOT 


2EBA 


14 


INC 


D 


N = 1 




2EBB 


FED8 


CP 


0D8H 


BACKSPACE? 


2EBD 


CAD22F 


JP 


Z,2FD2H 


JUMP 


IF 


SO 


2EC0 


FEDD 


CP 


ODDH 


CARRIAGE RETURN? 


2EC2 


CAE02F 


JP 


Z,2FE0H 


JUMP 


IF 


SO 


2EC5 


FEFO 


CP 


OFOH 


SPACE? 




2EC7 


2841 


JR 


Z,2F0AH 


JUMP 


IF 


SO 


2EC9 


FE31 


CP 


31H 


UPPER CASE? 


2ECB 


3802 


JR 


C,2ECFH 


SKIP 


IF 


SO 


2ECD 


D620 


SUB 


20H 


MAKE 


UPPER CASE 


2ECF 


FE21 


CP 


21H 


" " ? 






2ED1 


CAF62F 


JP 


Z,2FF6H 


JUMP 


IF 


SO 


2ED4 


FEIC 


CP 


ICH 


" L " ? 






2ED6 


CA4 02F 


JP 


Z,2F40H 


JUMP 


IF 


SO 


2ED9 


FE23 


CP 


23H 


II c n 9 






2EDB 


283F 


JR 


Z,2F1CH 


JUMP 


IF 


SO 


2EDD 


FE19 


CP 


19H 


" I " ? 






2EDF 


CA7D2F 


JP 


Z,2F7DH 


JUMP 


IF 


SO 


2EE2 


FE14 


CP 


14H 


"D"? 






2EE4 


CA4A2F 


JP 


Z,2F4AH 


JUMP 


IF 


SO 


2EE7 


FE13 


CP 


13H 


II (^t II 9 






2EE9 


CA652F 


JP 


Z,2F65H 


JUMP 


IF 


SO 


2EEC 


FE15 


CP 


15H 


II g II p 






2EEE 


CAE32F 


JP 


Z,2FE3H 


JUMP 


IF 


SO 


2EF1 


FE28 


CP 


28H 


II Y n 9 






2EF3 


CA782F 


JP 


Z,2F78H 


JUMP 


IF 


SO 


2EF6 


FEIB 


CP 


IBH 


"K" ? 






2EF8 


281C 


JR 


Z,2F16H 


JUMP 


IF 


SO 


2EFA 


FE18 


CP 


18H 


II tJ II 9 






2EFC 


CA752F 


JP 


Z,2F75H 


JUMP 


IF 


so 


2EFF 


FEll 


CP 


IIH 


" A" ? 






2F01 


CO 


RET 


NZ 


RETURN IF NOT 






"A" ROUTINE 








2F02 


CI 


POP 


BC 


CLEAR RETURN 


2F03 


Dl 


POP 


DE 


GET LINE # 


2F04 


CDFE2 


CALL 


2 0FEH 


NEW LINE ON DISPLAY 


2F07 


C3652E 


JP 


2E65H 


DISPLAY 


LINE # & EDIT 
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SPACE ROUTINE 



2F0A 


7E 


LD 


A, (HL) 


2F0B 


B7 


OR 


A 


2F0C 


C8 


RET 


Z 


2F0D 


04 


INC 


B 


2F0E 


CD2A03 


CALL 


03 2AH 


2F11 


23 


INC 


HL 


2F12 


15 


DEC 


D 


2F13 


20F5 


JR 


NZ,2F0AH 


2F15 


C9 


RET 








"K" ROUTINE 


2F16 


E5 


PUSH 


HL 


2F17 


215F2F 


LD 


HL,2F5FH 


2F1A 


E3 


EX 


(SP) ,HL 


2F1B 


37 


SCF 








"S" ROUTINE 


2F1C 


F5 


PUSH 


AF 


2F1D 


CD8403 


CALL 


0384H 


2F20 


5F 


LD 


E,A 


2F21 


Fl 


POP 


AF 


2F22 


F5 


PUSH 


AF 


2F23 


DC5F2F 


CALL 


C,2F5FH 


2F26 


7E 


LD 


A, (HL) 


2F27 


B7 


OR 


A 


2F28 


CA3E2F 


JP 


Z,2F3EH 


2F2B 


CD2A03 


CALL 


03 2AH 


2F2E 


Fl 


POP 


AF 


2F2F 


F5 


PUSH 


AF 


2F30 


DCA12F 


CALL 


C,2FA1H 


2F33 


3802 


JR 


C,2F37H 


2F35 


23 


INC 


HL 


2F36 


04 


INC 


B 


2F37 


7E 


LD 


A, (HL) 


2F38 


BB 


CP 


E 


2F39 


20EB 


JR 


NZ,2F26H 


2F3B 


15 


DEC 


D 


2F3C 


20E8 


JR 


NZ,2F26H 


2F3E 


Fl 


POP 


AF 


2F3F 


C9 


RET 








"L" ROUTINE 


2F40 


CD752B 


CALL 


2B75H 


2F43 


CDFE2 


CALL 


2 0FEH 


2F46 


CI 


POP 


BC 


2F47 


C37C2E 


JP 


2E7CH 






"D" ROUTINE 


2F4A 


7E 


LD 


A, (HL) 


2F4B 


B7 


OR 


A 


2F4C 


C8 


RET 


Z 


2F4D 


3E21 


LD 


A,21H 


2F4F 


CD2A03 


CALL 


03 2AH 


2F52 


7E 


LD 


A, (HL) 


2F53 


B7 


OR 


A 



GET CHARACTER 

END OF LINE? 

RETURN IF SO 

NEXT POSITION IN LINE 

DISPLAY CHARACTER 

MOVE UP IN LINE 

ONE LESS SPACE TO DO 

LOOP UNTIL DONE 

DONE 



SET 

RETURN 

THROUGH 2F5FH 
SET DELETE FLAG 



SAVE DELETE FLAG 

GET SEARCH CHARACTER. 

SAVE CHARACTER 

GET & SAVE 

DELETE FLAG 

DISPLAY " ! " IF DELETING 

GET NEXT CHARACTER. 

END OF LINE? 

JUMP IF SO 

DISPLAY CHARACTER 

GET 

DELETE FLAG 

DELETE CHARACTER IF NECESSARY 

SKIP IF DELETING 

MOVE FORWARD ONE BYTE 

INCREASE POSITION # 

GET CHARACTER 

SEARCH CHARACTER? 

CONTINUE SEARCH IF NOT 

ONE LESS TO SEARCH FOR 

SEARCH N TIMES 

CLEAR STACK 

DONE 



DISPLAY REST OF LINE 
NEW LINE ON DISPLAY 
CLEAR RETURN 
DISPLAY LINE # & CONTINUE 



AT END OF 

OF LINE? 
RETURN IF SO 
DISPLAY" ! " 

AT END OF 
LINE ? 
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2F54 


2809 


JR 


Z,2F5FH 


2F56 


CD2A03 


CALL 


03 2AH 


2F59 


CDA12F 


CALL 


2FA1H 


2F5C 


15 


DEC 


D 


2F5D 


20F3 


JR 


NZ,2F52H 


2F5F 


3E21 


LD 


A,21H 


2F61 


CD2A03 


CALL 


03 2AH 


2F64 


C9 


RET 








"C" ROUTINE 


2F65 


7E 


LD 


A, (HL) 


2F66 


B7 


OR 


A 


2F67 


C8 


RET 


Z 


2F68 


CD8403 


CALL 


0384H 


2F6B 


77 


LD 


(HL) ,A 


2F6C 


CD2A03 


CALL 


03 2AH 


2F6F 


23 


INC 


HL 


2F70 


04 


INC 


B 


2F71 


15 


DEC 


D 


2F72 


20F1 


JR 


NZ,2F65H 


2F74 


C9 


RET 








"H" ROUTINE 


2F75 


3600 


LD 


(HL) , OOH 


2F77 


48 


LD 


C,B 






"X" ROUTINE 


2F78 


16FF 


LD 


D, OFFH 


2F7A 


CD0A2F 


CALL 


2F0AH 






"I" ROUTINE 


2F7D 


CD8403 


CALL 


0384H 


2F80 


B7 


OR 


A 


2F81 


CA7D2F 


JP 


Z,2F7DH 


2F84 


FE08 


CP 


08H 


2F86 


2 8 0A 


JR 


Z,2F92H 


2F88 


FEOD 


CP 


ODH 


2F8A 


CAE02F 


JP 


Z,2FE0H 


2F8D 


FEIB 


CP 


IBH 


2F8F 


C8 


RET 


Z 


2F90 


201E 


JR 


NZ,2FB0H 


2F92 


3E08 


LD 


A,08H 


2F94 


05 


DEC 


B 


2F95 


04 


INC 


B 


2F96 


281F 


JR 


Z,2FB7H 


2F98 


CD2A03 


CALL 


03 2AH 


2F9B 


2B 


DEC 


HL 


2F9C 


05 


DEC 


B 


2F9D 


117D2F 


LD 


DE,2F7DH 


2FA0 


D5 


PUSH 


DE 


2FA1 


E5 


PUSH 


HL 


2FA2 


OD 


DEC 


C 


2FA3 


7E 


LD 


A, (HL) 


2FA4 


B7 


OR 


A 


2 FAS 


37 


SCF 




2FA6 


CA9008 


JP 


Z, 0890H 


2FA9 


23 


INC 


HL 



SKIP OUT IF SO 
DISPLAY CHARACTER. 
DELETE CHARACTER. 
ONE LESS REPEAT 
REPEAT N TIMES 
DISPLAY " ! " 

DONE 



AT END 

OF LINE 

RETURN IF SO 

GET NEW CHARACTER 

SAVE NEW CHARACTER 

DISPLAY CHARACTER 

MOVE FORWARD IN LINE 

INCREASE COLUMN # 

ONE LESS REPEAT 

REPEAT # TIMES 

DONE 



MARK END OF LINE 
SAVE NEW LINE LENGTH 



SET INDEFINITE REPEAT 
SPACE TO END OF LINE 



GET CHARACTER TO INSERT 

NULL? 

LOOP IF SO 

BACKSPACE? 

JUMP IF SO 

CARRIAGE RETURN? 

JUMP IF SO 

ESCAPE? 

RETURN IF SO 

JUMP IF ANY OTHER CHARACTER. 

BACKSPACE CHARACTER 

AT BEGINNING 

OF LINE? 

SKIP IF SO 

BACKSPACE CURSOR 

MOVE BACK IN LINE 

DECREASE COLUMN # 

RETURN THROUGH 

2F7DH (INSERT) 

SAVE POSITION 

DECREASE SIZE OF LINE 

AT END 

OF LINE? 

RESTORE CARRY FLAG 

RETURN IF SO 

GET NEXT CHARACTER 
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2FAA 


7E 


LD 


A, (HL) 


2 FAB 


2B 


DEC 


HL 


2FAC 


77 


LD 


(HL) ,A 


2 FAD 


23 


INC 


HL 


2FAE 


18F3 


JR 


2FA3H 


2FB0 


F5 


PUSH 


AF 


2FB1 


79 


LD 


A,C 


2FB2 


FEFF 


CP 


OFFH 


2FB4 


3803 


JR 


C,2FB9H 


2FB6 


Fl 


POP 


AF 


2FB7 


18C4 


JR 


2F7DH 


2FB9 


90 


SUB 


B 


2FBA 


OC 


INC 


C 


2FBB 


04 


INC 


B 


2FBC 


C5 


PUSH 


BC 


2FBD 


EB 


EX 


DE,HL 


2FBE 


6F 


LD 


L,A 


2FBF 


2600 


LD 


H, OOH 


2FC1 


19 


ADD 


HL,DE 


2FC2 


44 


LD 


B,H 


2FC3 


4D 


LD 


C,L 


2FC4 


23 


INC 


HL 


2FC5 


CD5819 


CALL 


1958H 


2FC8 


CI 


POP 


BC 


2FC9 


Fl 


POP 


AF 


2FCA 


77 


LD 


(HL) ,A 


2FCB 


CD2A03 


CALL 


03 2AH 


2FCE 


23 


INC 


HL 


2FCF 


C37D2F 


JP 


2F7DH 




78 


BACKSPACE ROUTINE 


2FD2 


LD 


A,B 


2FD3 


B7 


OR 


A 


2FD4 


C8 


RET 


Z 


2FD5 


05 


DEC 


B 


2FD6 


2B 


DEC 


HL 


2FD7 


3E08 


LD 


A,08H 


2FD9 


CD2A03 


CALL 


03 2AH 


2FDC 


15 


DEC 


D 


2 FDD 


20F3 


JR 


NZ,2FD2H 


2FDF 


C9 


RET 





SAVE AT 

CURRENT POSITION 

MOVE UP 

LOOP TO END OF LINE 

SAVE STATUS 

GET LINE LENGTH 

LINE FULL? 

JUMP IF NOT 

RESTORE STATUS 

LOOP BACK NO INSERT 

COMPUTE # BYTES TO MOVE 

INCREASE LINE SIZE 

NEXT COLUMN 

SAVE LINE SIZE & COLUMN 

SAVE POSITION IN LINE 

COMPUTE ENDING 

ADDRESS OF BLOCK MOVE 

HL => END OF DESTINATION BLOCK 

DE => START OF SOURCE BLOCK 

BC => END OF SOURCE BLOCK 

MOVE DATA BLOCK OVER 
RESTORE SIZE & COLUMN 
GET CHARACTER 
SAVE CHARACTER 
DISPLAY CHARACTER 
MOVE TO NEXT POSITION 
LOOP BACK 



AT START 

OF LINE 

RETURN IF SO 

DECREASE COLUMN # 

BACKUP IN BUFFER 

BACKSPACE 

CURSOR 

ONE LESS REPEAT 

REPEAT N TIMES 

DONE 



2FE0 CD752B 



CARRIAGE RETURN ROUTINE 



CALL 



2B75H 



DISPLAY REMAINDER OF LINE 



"E" ROUTINE 



2FE3 


CDFE2 


CALL 


2 0FEH 


NEW LINE ON DISPLAY 


2FE6 


CI 


POP 


BC 




CLEAR RETURN 


2FE7 


Dl 


POP 


DE 




GET LINE # 


2FE8 


7A 


LD 


A,D 




DIRECT 


2FE9 


A3 


AND 


E 




MOVE ? 


2FEA 


3C 


INC 


A 






2 FEB 


2AA740 


LD 


HL, 


(40A7H) 


HL => JUST BEFORE 


2FEE 


2B 


DEC 


HL 




BUFFER 


2FEF 


C8 


RET 


Z 




RETURN IF DIRECT MODE 


2FF0 


37 


SCF 






SET CARRY FOR LATER 


2FF1 


23 


INC 


HL 




HL => BUFFER 
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2FF2 


F5 


PUSH AF 


SAVE CARRY FLAG 


2FF3 


C3981A 


JP 1A9 8H 
"0" ROUTINE 


SAVE LINE & EXIT 


2FF6 


CI 


POP BC 


CLEAR STACK 


2FF7 


Dl 


POP DE 


GET LINE # 


2FF8 


C3191A 


JP 1A19H 


GO TO READY 



2FFB DEC3C344B2 



UNUSED GARBAGE. 
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SYSTEM 


ROM 




ADDR 








3000 


C35E32 


JP 


325EH 


3003 


C39B32 


JP 


329BH 


3006 


C37432 


JP 


3274H 


3009 


C3DA32 


JP 


3 2DAH 


300C 


C3C031 


JP 


31C0H 


300F 


C3D131 


JP 


31D1H 


3012 


C3AB34 


JP 


34ABH 


3015 


C35534 


JP 


3455H 


3018 


C3C235 


JP 


35C2H 


301B 


C3FB35 


JP 


3 5FBH 


301E 


C35A36 


JP 


3 65AH 


3021 


C38036 


JP 


3680H 


3024 


C38E33 


JP 


338EH 


3027 


C33937 


JP 


3739H 


302A 


C3F731 


JP 


31F7H 


302D 


C37B37 


JP 


377BH 


3030 


C39937 


JP 


3799H 


3033 


C3BB35 


JP 


35BBH 


3036 


C3A035 


JP 


35A0H 


3039 


DBE4 


IN 


A, (0E4H) 


303B 


CB6F 


BIT 


05H,A 


303D 


C31C35 


JP 


3 51CH 


3040 


18D3 


JR 


3015H 


3042 


C3B537 


JP 


37B5H 



SLOW TAPE HEADER WRITE. 

FAST TAPE HEADER WRITE. 

SLOW TAPE HEADER READ. 

FAST TAPE HEADER READ. 

CASSETTE OFF. 

CASSETTE ON. 

WARM BOOT 

BOOTSTRAP 

MASKABLE INTERRUPT HANDLER 

RS-232 INITIALIZATION 

RS-2 32 INPUT 

RS-2 32 OUTPUT 

KEYBOARD INPUT 

I/O RE -ROUTER 

PART OF CASSETTE HEADER ROUTINE 

STRING=DATE$+ " " +TIME$ 

$DATE 

$TIME 

GET NON-MASKABLE INTERRUPT STATUS 

CHECK IT. 

GO TO NMI HANDLER 

BOOTSTRAP 

$SETCAS 



3045 406162636465666768696A6B6C6D6E KEYBOARD ROWS 
6F707172737475767778797A 



0-3 UNSHIFTED NO CAPS LOCK. 



3060 3AEA37 

3063 B7 

3064 C9 



LD 
OR 
RET 



A, (3 7EAH) 
A 



CHECK COMPUTER VERSION. 



3065 303132333435363738393A3B2C2D2E KEYBOARD ROWS 4-6 UNSHIFTED NO CAPS LOCK. 
2F0D1F015B0A080920 



307D 


21DC05 


LD 


HL, 05DCH 




307E 


22FF41 


LD 


(41FFH) ,HL 




3083 


AF 


XOR 


A 


NULL CHARACTER RETURN 


3084 


C9 


RET 




RETURN 



3085 604142434445464748494A4B4C4D4E KEYBOARD ROWS 0-3 SHIFTED NO CAPS LOCK. 
4F505152535455565758595A 58595A 



3 0A0 


77 


LD 


(HL) ,A 


SAVE FLAG 


3 0A1 


AF 


XOR 


A 


NULL CHARACTER 


3 0A2 


C9 


RET 




RETURN 


3 0A3 


AAAA 






UNUSED GARBAGE 



30A5 002122232425262728292A2B3C3D3E KEYBOARD ROWS 4-6 SHIFTED NO CAPS LOCK 
3F0D1F011B1A181920 



3 0BD 


3E01 


LD 


A, OIH 


3 0BE 


211940 


LD 


HL,4019H 


30C2 


AE 


XOR 


(HL) 


30C3 


18DB 


JR 


3 0A0H 



TOGGLE CAPS LOCK 
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30C5 404142434445464748494A4B4C4D4E KEYBOARD ROWS 0-3 UNSHIFTED CAPS LOCK. 
4F505152535455565758595A 



30E0 


CDD9 01 


CALL 


01D9H 


SCREEN PRINT 


30E3 


AF 


XOR 


A 


NULL CHARACTER 


30E4 


C9 


RET 




RETURN 



30E5 303132333435363738393A3B2C2D2E KEYBOARD ROWS 4-6 UNSHIFTED CAPS LOCK. 
2F0D1F015B0A080920 



3 0FD 


28E1 


JR 


Z,30E0H 


30FF 


A6 


AND 


(HL) 


3100 


FEOl 


CP 


OIH 


3102 


CO 


RET 


NZ 


3103 


EF 


RST 


28H 


3104 


C9 


RET 





SCREEN PRINT IF MATCH 
BREAK? 

RETURN IF NOT. 
CALL BREAK HANDLER 
DONE 



3105 604142434445464748494A4B4C4D4E KEYBOARD ROWS 0-3 SHIFTED CAPS LOCK. 
4F505152535455565758595A 



3120 


14 


INC 


D 


3121 


23 


INC 


HL 


3122 


CBOl 


RLC 


C 


3124 


C9 


RET 





NEXT ROW NUMBER 
NEXT BUFFER LOCATION. 
NEXT ROW OF KEYS 
CONTINUE . 



3125 002122232425262728292A2B3C3D3E KEYBOARD ROWS 4-6 SHIFTED CAPS LOCK. 
3F0D1F011B1A181920 



313D 


3AFD41 


LD 


A, 


(41FDH) 


3140 


6F 


LD 


L, 


A 


3141 


3AFE41 


LD 


A, 


(41FEH) 


3144 


C9 


RET 







3145 202122232425262728292A2B2C2D2E TABLE OF CHARACTERS FOR PRINTER 

2F303132333435363738393A3B3C3D CODES 32 - 127 

3E3F4 041424 3444 54 64 74 84 94A4B4C 

4D4E4F5 05152 53 54 5556 5758 5 95A5B 

5C5D5E5F4 06162 6 3 64 6 56 6 6 76 8 6 96A 

6B6C6D6E6F7 07172 73 74 7576 7778 79 

7A7B7C7D7E7F 



31A5 


3E01 


LD 


A, OIH 




0.85 V 


TO TAPE 


31A7 


D3FF 


OUT 


(OFFH) 


,A 






31A9 


060D 


LD 


B,ODH 




DELAY 




31AB 


lOFE 


DJNZ 


31ABH 








3 IAD 


3E02 


LD 


A,02H 




V TO 


TAPE 


31AF 


D3FF 


OUT 


(OFFH) 


,A 






31B1 


060D 


LD 


B, ODH 




DELAY 




31B3 


lOFE 


DJNZ 


31B3H 








31B5 


CDF331 


CALL 


31F3H 




0.46 V 


TO TAPE 


31B8 


0678 


LD 


B,78H 




DELAY 




31BA 


lOFE 


DJNZ 


31BAH 








31BC 


C9 


RET 






DONE 




31BD 


21A52C 


LD 


HL,2CA5H 






31C0 


3A1342 


LD 


A, (4213H) 






31C3 


D3E0 


OUT 


(OEOH) 


,A 
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31C5 


DBFF 


IN 


A, (OFFH) 


31C7 


3A1042 


LD 


A, (4210H) 


31CA 


E6FD 


AND 


OFDH 


31CC 


CDED31 


CALL 


31EDH 


31CF 


FB 


EI 




31D0 


C9 


RET 




31D1 


EB 


EX 


DE,HL 


31D2 


E3 


EX 


(SP) ,HL 


31D3 


C5 


PUSH 


BC 


31D4 


E5 


PUSH 


HL 


31D5 


EB 


EX 


DE,HL 


31D6 


DBEC 


IN 


A, (OECH) 


31D8 


112020 


LD 


DE,2020H 


31DB 


ED533E3C 


LD 


(3C3EH) ,DE 


31DF 


CDE831 


CALL 


31E8H 


31E2 


01007D 


LD 


BC, 7D00H 


31E5 


C36000 


JP 


0060H 


31E8 


3A1042 


LD 


A, (4210H) 


31EB 


F602 


OR 


02H 


31ED 


321042 


LD 


(4210H) ,A 


31F0 


D3EC 


OUT 


(OECH) ,A 


31F2 


C9 


RET 




31F3 


AF 


XOR 


A 


31F4 


D3FF 


OUT 


(OFFH) ,A 


31F6 


C9 


RET 




31F7 


7E 


LD 


A, (HL) 


31F8 


D623 


SUB 


23H 


31FA 


C25302 


JP 


NZ, 0253H 


31FD 


CD012B 


CALL 


2B01H 


3200 


CF 


RST 


08H 


3201 


2C 


M II 




3202 


C9 


RET 




3203 


0608 


LD 


B, 08H 


3205 


CD2032 


CALL 


3220H 


3208 


lOFB 


DJNZ 


3205H 


320A 


3A1242 


LD 


A, (4212H) 


320D 


3C 


INC 


A 


320E 


E65F 


AND 


5FH 


3210 


321242 


LD 


(4212H) ,A 


3213 


2008 


JR 


NZ,321DH 


3215 


3A3F3C 


LD 


A, (3C3FH) 


3218 


EEOA 


XOR 


OAH 


321A 


323F3C 


LD 


(3C3FH) ,A 


321D 


7A 


LD 


A,D 


321E 


1878 


JR 


3298H 


3220 


C5 


PUSH 


BC 


3221 


DBFF 


IN 


A, (OFFH) 


3223 


17 


RLA 




3224 


3808 


JR 


C,322EH 


3226 


CD8D02 


CALL 


028DH 


3229 


28F6 


JR 


Z,3221H 


322B 


C35C33 


JP 


335CH 


322E 


066E 


LD 


B, 6EH 


3230 


lOFE 


DJNZ 


3230H 


3232 


CDF3 31 


CALL 


31F3H 


3235 


0698 


LD 


B, 98H 


3237 


lOFE 


DJNZ 


3237H 



GET MASK FOR PORT EC. 



REMOVE RETURN ADDRESS, 
SAVE DE & BC, 
RESTORE RETURN ADDRESS 
WHEN DONE 



BLANK BLINKERS 

TURN ON CASSETTE. 

DELAY COUNT 

WAIT A BIT & RETURN 

GET MASK FOR EC. 

SET BIT 2 

SAVE MASK 

OUTPUT MASK 

DONE 

RESET CASSETTE PORT. 



SEE IF CALLER WAS 

PRINT # 

JUMP IF NOT 

GET DEVICE NUMBER. 

SYNTAX ERROR IF 

NEXT CHARACTER NOT COMMA. 
DONE. 
READ 

EIGHT BITS 
INTO D. 
INCREMENT BYTE COUNT 

MASK TOP 3 BITS 
SAVE NEW COUNT 
SKIP IF COUNT <>0. 
TWINKLE, 
TWINKLE, 

LITTLE ASTERISK (!?) 
PUT BYTE IN A 

RESTORE REGISTERS & RETURN 
SAVE BC 

CHECK CASSETTE LEVEL 
PUT LEVEL IN CARRY 
JUMP IF TIMING MARK FOUND. 
CHECK FOR <BREAK>. 
LOOP IF NOT PRESSED. 
EXIT IF PRESSED. 
DELAY: WAIT FOR END 
OF TIMING MARK. 
RESET CASSETTE PORT 
DELAY: WAIT FOR WHEN 
DATA PULSE SHOULD BE. 
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3239 


DBFF 


IN 


A, (OFFH) 


GET DATA LEVEL 


323B 


CI 


POP 


EC 


RESTORE BC 


323C 


17 


RLA 




PUT DATA INTO CARRY. 


323D 


CB12 


RL 


D 


SHIFT DATA INTO D. 


323F 


18B2 


JR 


31F3H 


RESET PORT & RETURN. 


3241 


F5 


PUSH 


AF 


SAVE REGISTERS 


3242 


C5 


PUSH 


EC 




3243 


D5 


PUSH 


DE 




3244 


0E08 


LD 


COSH 


WRITE 8 BITS. 


3246 


57 


LD 


D,A 


D=DATA BYTE 


3247 


CDA531 


CALL 


31A5H 


OUTPUT TIMING MARK 


324A 


CB02 


RLC 


D 


ROTATE BIT INTO CARRY 


324C 


3 0A 


JR 


NC,3258H 


NO PULSE IF 0. 


324E 


CDA531 


CALL 


31A5H 


OUTPUT DATA PULSE 


3251 


OD 


DEC 


C 


COUNT DOWN BITS LEFT. 


3252 


20F3 


JR 


NZ,3247H 


LOOP WHILE SOME LEFT. 


3254 


Dl 


POP 


DE 


RESTORE REGISTERS 


3255 


CI 


POP 


EC 




3256 


Fl 


POP 


AF 




3257 


C9 


RET 




DONE 


3258 


069A 


LD 


E, 9AH 


OUTPUT NO PULSE 


325A 


lOFE 


DJNZ 


3 2 5AH 


SIMPLY WAIT 


325C 


18F3 


JR 


3251H 




325E 


E5 


PUSH 


HL 


SAVE HL 


325F 


214132 


LD 


HL,3241H 


VECTOR TO SLOW WRITE 


3262 


220C42 


LD 


(420CH) ,HL 




3265 


0653 


LD 


E,53H 


OUTPUT 63 ZEROES 


3267 


AF 


XOR 


A 




3268 


CD4132 


CALL 


3241H 




326B 


lOFB 


DJNZ 


3268H 




326D 


3EA5 


LD 


A, 0A5H 


OUTPUT SYNC BYTE 


326F 


CD4132 


CALL 


3241H 




3272 


1823 


JR 


3297H 


RESTORE REGISTERS & RETURN 


3274 


E5 


PUSH 


HL 


SAVE HL 


3275 


210332 


LD 


HL,3203H 


VECTOR TO SLOW READ 


3278 


220E42 


LD 


(420EH) ,HL 




327B 


0640 


LD 


E,40H 


TRY TO FIND 64 ZEROES 


327D 


1600 


LD 


D, OOH 


SET BYTE TO 


327F 


CD2032 


CALL 


3220H 


READ BIT 


3282 


7A 


LD 


A,D 


CHECK CURRENT BYTE. 


3283 


B7 


OR 


A 




3284 


20F5 


JR 


NZ,327EH 


RE -START IF NON-ZERO 


3286 


10F7 


DJNZ 


327FH 


CONTINUE UNTIL ENOUGH FOUND 


3288 


CD2032 


CALL 


3220H 


READ BIT 


328B 


7A 


LD 


A,D 


CHECK CURRENT BYTE. 


328C 


FEA5 


CP 


CASH 


SYNC BYTE? 


328E 


20F8 


JR 


NZ,3288H 


LOOP IF NOT. 


3290 


212A2A 


LD 


HL,2A2AH 


DISPLAY "**" 


3293 


223E3C 


LD 


(3C3EH) ,HL 




3296 


7C 


LD 


A,H 


PUT "*" IN A 


3297 


El 


POP 


HL 


RESTORE REGISTERS 


3298 


CI 


POP 


EC 




3299 


Dl 


POP 


DE 




329A 


C9 


RET 




DONE 


329B 


E5 


PUSH 


HL 


SAVE HL 


329C 


21BA32 


LD 


HL,32EAH 


VECTOR TO FAST WRITE 


329F 


220C42 


LD 


(420CH) ,HL 
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32A2 


0600 


LD 


B, OOH 


32A4 


3E55 


LD 


A,55H 


32A6 


CDB4 32 


CALL 


32B4H 


32A9 


10F9 


DJNZ 


3 2A4H 


32AB 


3E7F 


LD 


A,7FH 


3 2 AD 


CDB4 32 


CALL 


32B4H 


32B0 


3EA5 


LD 


A, 0A5H 


32B2 


18E3 


JR 


3297H 


32B4 


F5 


PUSH 


AF 


32B5 


C5 


PUSH 


BC 


32B6 


D5 


PUSH 


DE 


32B7 


4F 


LD 


C,A 


32B8 


1807 


JR 


32C1H 


32BA 


F5 


PUSH 


AF 


32BB 


C5 


PUSH 


BC 


32BC 


D5 


PUSH 


DE 


32BD 


4F 


LD 


C,A 


32BE 


CD3E33 


CALL 


333EH 


32C1 


0608 


LD 


B, 08H 


32C3 


CD3533 


CALL 


3335H 


32C6 


lOFB 


DJNZ 


32C3H 


32C8 


188A 


JR 


3254H 


32CA 


CD5033 


CALL 


3350H 


32CD 


0608 


LD 


B, 08H 


32CF 


CD5033 


CALL 


3350H 


32D2 


CD7C33 


CALL 


337CH 


32D5 


10F8 


DJNZ 


32CFH 


32D7 


C3 0A32 


JP 


3 2 0AH 


32DA 


E5 


PUSH 


HL 


32DB 


21CA32 


LD 


HL,32CAH 


32DE 


220E42 


LD 


(420EH) ,HL 


32E1 


3E01 


LD 


A,01H 


32E3 


D3E0 


OUT 


(OEOH) ,A 


32E5 


0680 


LD 


B, 80H 


32E7 


CD5033 


CALL 


3350H 


32EA 


79 


LD 


A,C 


32EB 


FEOF 


CP 


OFH 


32ED 


38F6 


JR 


C,32E5H 


32EF 


FE3E 


CP 


3 EH 


32F1 


30F2 


JR 


NC,32E5H 


32F3 


10F2 


DJNZ 


32E7H 


32F5 


210000 


LD 


HL,OOOOH 


32F8 


0640 


LD 


B,40H 


32FA 


CD5033 


CALL 


3350H 


32FD 


CD5033 


CALL 


3350H 


3300 


51 


LD 


D,C 


3301 


CD5033 


CALL 


3350H 


3304 


7A 


LD 


A,D 


3305 


91 


SUB 


C 


3306 


3002 


JR 


NC,330AH 


3308 


ED44 


NEG 




330A 


FEOD 


CP 


ODH 


330C 


3805 


JR 


C,3313H 


330E 


24 


INC 


H 


330F 


10E9 


DJNZ 


3 2FAH 


3311 


1803 


JR 


3316H 


3313 


2C 


INC 


L 



OUTPUT 2 56 "55" BYTES 



OUTPUT SYNC BYTE. 

A = SLOW SYNC BYTE 
RESTORE REGISTERS & RETURN 
SAVE REGISTERS 



PUT BYTE IN C. 
WRITE, NO START BIT. 
SAVE REGISTERS 



PUT BYTE IN C. 

OUTPUT START BIT 

8 BITS 

OUTPUT BIT 

LOOP UNTIL DONE. 

RESTORE REGISTERS & RETURN 

READ START BIT 

READ EIGHT BITS 

READ BIT 

CHECK FOR DATA ERROR 

LOOP FOR BYTE 

CONTINUE 

SAVE HL 

VECTOR TO 

FAST READ. 
SET INTERRUPT 

VECTOR. 
TRY TO READ 12 8 BYTES 
READ BIT 
GET PULSE WIDTH 
TOO SHORT? 
LOOP BACK IF SO. 
TOO LONG? 
LOOP BACK IF SO. 
TRY 12 8 TIMES. 
ZERO COUNTS 
READ 64 BITS 
READ BIT 
READ BIT 
D = DELAY COUNT 
READ BIT 
FIND DIFFERENCE 

IN DELAYS. 
GET ABSOLUTE 

VALUE . 
ONE BIT? 
SKIP IF SO. 
ONE MORE ZERO BIT. 
LOOP FOR MORE 
SKIP IF DONE. 
ONE MORE ONE BIT. 
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3314 


10E4 


DJNZ 


3 2FAH 


LOOP FOR MORE 


3316 


3E40 


LD 


A,40H 


64 ZERO 


3318 


EC 


CP 


H 


BITS? 


3319 


2 8 0A 


JR 


Z,3325H 


JUMP IF SO. 


331B 


BD 


CP 


L 


64 ONE BITS? 


331C 


20D7 


JR 


NZ,32F5H 


JUMP IF NOT. 


331E 


3E02 


LD 


A,02H 


SET INTERRUPT 


3320 


D3E0 


OUT 


(OEOH) ,A 


VECTOR. 


3322 


CD5033 


CALL 


3350H 


READ BIT. 


3325 


1600 


LD 


D,OOH 


ZERO BYTE 


3327 


CD5033 


CALL 


3350H 


READ BIT INTO D. 


332A 


CD7C33 


CALL 


337CH 


CHECK FOR DATA ERROR 


332D 


7A 


LD 


A,D 


GET BYTE 


332E 


FE7F 


CP 


7FH 


MARKER BYTE? 


3330 


20F5 


JR 


NZ,3327H 


JUMP IF NOT. 


3332 


C39032 


JP 


3290H 


CONTINUE 


3335 


CBOl 


RLC 


C 


SHIFT BIT INTO CARRY 


3337 


3005 


JR 


NC,333EH 


SKIP IF ZERO BIT. 


3339 


111712 


LD 


DE, 1217H 


DELAYS FOR 1 BIT. 


333C 


1803 


JR 


3341H 




333E 


112F2B 


LD 


DE,2B2FH 


DELAYS FOR BIT. 


3341 


15 


DEC 


D 


DELAY #1 


3342 


2 0FD 


JR 


NZ,3341H 




3344 


3E02 


LD 


A, 02H 


VOLTS TO TAPE 


3346 


D3FF 


OUT 


(OFFH) ,A 




3348 


ID 


DEC 


E 


DELAY #2 


3349 


2 0FD 


JR 


NZ,3348H 




334B 


3E01 


LD 


A, OIH 


0.8 5 VOLTS TO TAPE 


334D 


D3FF 


OUT 


(OFFH) ,A 




334F 


C9 


RET 




DONE 


3350 


FB 


EI 




LISTEN FOR INTERRUPTS 


3351 


OEOO 


LD 


C,00H 


COUNT =0 


3353 


OC 


INC 


C 


COUNT = COUNT + 1 


3354 


3A4038 


LD 


A, (3840H) 


CHECK <BREAK> 


3357 


E604 


AND 


04H 




3359 


28F8 


JR 


Z,3353H 


LOOP IF NOT PRESSED 


335B 


F3 


DI 




DISABLE INTERRUPTS 


335C 


21424B 


LD 


HL,4B42H 


DISPLAY "BK" OVER "** 


335F 


223E3C 


LD 


(3C3EH) ,HL 




3362 


C30342 


JP 


4203H 


EXIT. 



THIS ROUTINE IS EXITED VIA AND INTERRUPT 
(MASKABLE>. EXIT IS TO 3365H OR 3369H, 
ACCORDING TO HOW PREVIOUSLY SET. 



3365 


lEOl 


LD 


E, OIH 


3367 


1802 


JR 


336BH 


3369 


lEOO 


LD 


E, OOH 


336B 


3E06 


LD 


A, 06H 


336D 


81 


ADD 


A,C 


336E 


4F 


LD 


C,A 


336F 


DBFF 


IN 


A, (OFFH) 


3371 


E601 


AND 


OIH 


3373 


BB 


CP 


E 


3374 


2003 


JR 


NZ,3379H 


3376 


Fl 


POP 


AF 


3377 


Fl 


POP 


AF 



BIT GOES HIGH. 

BIT GOES LOW 
COUNT = COUNT + 6 



GET CASSETTE LEVEL 

COMPARE WITH GIVEN LEVEL 
SKIP IF NO MATCH. 
RESTORE AF 
REMOTE CALLER ' S ADDRESS 
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3378 


C9 


RET 




3379 


Fl 


POP 


AF 


3 3 7A 


FB 


EI 




337B 


C9 


RET 




337C 


79 


LD 


A,C 


337D 


FE22 


CP 


22H 


337F 


CB12 


RL 


D 


3381 


FEOF 


CP 


OFH 


3383 


3803 


JR 


C,3388H 


3385 


FE3E 


CP 


3 EH 


3387 


D8 


RET 


C 


3388 


3E44 


LD 


A,44H 


338A 


323E3C 


LD 


(3C3EH) ,A 


338D 


C9 


RET 




338E 


CD6030 


CALL 


3060H 


3391 


2010 


JR 


NZ,33A3H 


3393 


018038 


LD 


BC,3880H 


3396 


211840 


LD 


HL,4018H 


3399 


OA 


LD 


A, (BC) 


339A 


E602 


AND 


02H 


339C 


5F 


LD 


E,A 


339D 


AE 


XOR 


(HL) 


339E 


73 


LD 


(HL) ,E 


339F 


A3 


AND 


E 


33A0 


C2BD30 


JP 


NZ,3 0BDH 


3 3 A3 


3EFF 


LD 


A, OFFH 


33A5 


214038 


LD 


HL,3840H 


33A8 


CB66 


BIT 


04H, (HL) 


33AA 


2808 


JR 


Z,33B4H 


3 3 AC 


CB2 5 


SLA 


L 


3 3AE 


CB4 6 


BIT 


OOH, (HL) 


33B0 


2802 


JR 


Z,33B4H 


33B2 


3E1F 


LD 


A, IFH 


33B4 


322442 


LD 


(4224H) ,A 


33B7 


010138 


LD 


BC,3801H 


3 3BA 


213640 


LD 


HL,4036H 


33BD 


1600 


LD 


D,OOH 


33BF 


OA 


LD 


A, (BC) 


33C0 


5F 


LD 


E,A 


33C1 


AE 


XOR 


(HL) 


33C2 


73 


LD 


(HL) ,E 


33C3 


A3 


AND 


E 


33C4 


2032 


JR 


NZ,33F8H 


33C6 


CD2031 


CALL 


3120H 


33C9 


F2BF33 


JP 


P,33BFH 


33CC 


CD3D31 


CALL 


313DH 


33CF 


A6 


AND 


(HL) 


33D0 


2008 


JR 


NZ,3 3DAH 


33D2 


ED62 


SBC 


HL,HL 


33D4 


220142 


LD 


(4201H) ,HL 


33D7 


C37D30 


JP 


3 7DH 


3 3DA 


E5 


PUSH 


HL 


33DB 


2A0142 


LD 


HL, (4201H) 


33DE 


23 


INC 


HL 


33DF 


220142 


LD 


(4201H) ,HL 


33E2 


ED5BFF41 


LD 


DE, (41FFH) 


33E6 


ED52 


SBC 


HL,DE 



RETURN TO CALLER ' S CALLER . 

RESTORE AF 

RE -ENABLE INTERRUPTS 

RETURN TO LOOP 

GET COUNT 

WAS THERE OR 1? (CARRY) 

PUT DATA BIT INTO D. 

TOO QUICK? 

DATA ERROR IF SO 

TO SLOW? 

RETURN IF NOT. 

DISPLAY "D" 

FOR DATA ERROR. 
DONE 

LOWER CASE INSTALLED? 
SKIP IF NOT. 
BC => SHIFT KEYS 
HL => FLAG BYTE 
GET IMAGE OF KEYS 
MASK BIT 1 (RIGHT SHIFT) 
SAVE MASKED IMAGE 
TOGGLE AGAINST OLD IMAGE 
SAVE NEW IMAGE 
MASK BIT 1 

JUMP IF RIGHT SHIFT PRESSED. 
FLAG = OFFH = NO CONTROL 
CHECK FOR 

DOWN ARROW. 
SKIP IF NOT PRESSED 
CHECK FOR 

LEFT SHIFT. 
SKIP IF NOT PRESSED 
FLAG = CONTROL KEY 
SAVE "CONTROL" FLAG 
BC => KEYBOARD ROW 
HL => BUFFER ROW 
D = ROW 
CHECK ROW 
SAVE IN E 
SET CHANGED BITS 
SAVE SCAN. 
MASK RELEASED KEYS 
JUMP IF ANY KEYS PRESSED 
GO TO NEXT ROW 
LOOP IF ANY ROWS LEFT 
RESTORE SCANNING VARIABLES 
PREVIOUS KEYS STILL PRESSED? 
JUMP IF SO. 
ZERO HL. 

CLEAR REPEAT COUNTER 
FINISH & RETURN NULL. 
SAVE HL 
INCREMENT 

REPEAT 

COUNTER . 
SCANNED 

ENOUGH? 
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33E8 


Dl 


POP 


DE 


33E9 


DAA13 


JP 


C,3 0A1H 


33EC 


AF 


XOR 


A 


33ED 


12 


LD 


(DE) ,A 


33EE 


220142 


LD 


(4201H) ,E 


33F1 


2E96 


LD 


L, 96H 


33F3 


22FF41 


LD 


(41FFH) ,E 


33F6 


18AB 


JR 


33A3H 


33F8 


5F 


LD 


E,A 


33F9 


C5 


PUSH 


EC 


33FA 


01C405 


LD 


EC, 05C4H 


33FD 


CD6000 


CALL 


0060H 


3400 


CI 


POP 


EC 


3401 


OA 


LD 


A, (BC) 


3402 


A3 


AND 


E 


3403 


C8 


RET 


Z 


3404 


32FE41 


LD 


(41FEH) ,P. 


3407 


7D 


LD 


A,L 


3408 


32FD41 


LD 


(41FDH) ,P. 


340B 


7A 


LD 


A,D 


340C 


17 


RLA 




340D 


17 


RLA 




340E 


17 


RLA 




340F 


57 


LD 


D,A 


3410 


7B 


LD 


A,E 


3411 


OF 


RRCA 




3412 


3803 


JR 


C,3417H 


3414 


14 


INC 


D 


3415 


18FA 


JR 


3411H 


3417 


CD6030 


CALL 


3060H 


341A 


3A8038 


LD 


A, (3880H) 


341D 


2002 


JR 


NZ,3421H 


341F 


E601 


AND 


OIH 


3421 


E603 


AND 


03H 


3423 


2802 


JR 


Z,3427H 


3425 


CBF2 


SET 


06H,D 


3427 


3A1940 


LD 


A, (4019H) 


342A 


B7 


OR 


A 


342B 


2802 


JR 


Z,342FH 


342D 


CBFA 


SET 


07H,D 


342F 


214530 


LD 


HL,3045H 


3432 


5A 


LD 


E,D 


3433 


1600 


LD 


D, OOH 


3435 


19 


ADD 


HL,DE 


3436 


7E 


LD 


A, (HL) 


3437 


FEIA 


CP 


lAH 


3439 


CAA13 


JP 


Z,3 0A1H 


343C 


47 


LD 


B,A 


343D 


CD6030 


CALL 


3060H 


3440 


78 


LD 


A,B 


3441 


2804 


JR 


Z,3447H 


3443 


B7 


OR 


A 


3444 


CABD3 


JP 


Z,3 0BDH 


3447 


212442 


LD 


HL,4224H 


344A 


FE2A 


CP 


2 AH 


344C 


2004 


JR 


NZ,3452H 


344E 


3E1F 


LD 


A,1FH 



HL 



HL 



RESTORE OLD HL TO DE 
RETURN NULL IF NOT. 
CLEAR MASK SO 

KEY WILL BE RE-READ. 
SAVE COUNTER. 
FAST REPEAT COUNT. 
SAVE NEW REPEAT COUNT. 
RE -SCAN KEYBOARD 
SAME KEY PATTERN IN E . 
SAVE BC 
1/5 SECOND DELAY 

FOR DE- BOUNCE. 

RESTORE BC 
RE -CHECK KEYBOARD 
SAME PATTERN 
RETURN IF NOT 
SAVE 

SCAN POSITION 
AND VALUE. 
D = 8* ROW # 



8* ROW # + KEY # 



DUAL SHIFTS? 
GET SHIFT (S) . 
SKIP IF DUAL SHIFTS 
MASK FOR SHIFTS 
MASK FOR SHIFTS 
SKIP IF NO SHIFTS 
OFFSET D FOR SHIFTS 
CAPS LOCK? 

SKIP OF NO CAPS LOCK 
OFFSET D FOR CAPS LOCK. 
HL => KEYBOARD TABLES. 
DE = OFFSET 

HL = CHARACTER POSITION 
GET CHARACTER 
SHIFT DOWN ARROW? 
NULL EXIT IF SO. 
SAVE CHARACTER IN B. 

RESTORE CHARACTER 

NULL CHARACTER? 
TOGGLE CAPS LOCK IF SO 
HL => 'CONTROL' FLAG 
KEY = ' * ' 
SKIP IF NOT. 
CONTROL FLAG SET 
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3450 


BE 


CP 


(HL) 


3451 


78 


LD 


A,B 


3452 


C3FD30 


JP 


3 0FDH 


3455 


ED56 


IM 


1 


3457 


317D40 


LD 


SP,407DH 


345A 


D3E4 


OUT 


(0E4H) ,A 


345C 


F620 


OR 


20H 


345E 


D3EC 


OUT 


(OECH) ,A 


3460 


3E81 


LD 


A, 81H 


3462 


D3F4 


OUT 


(0F4H) ,A 


3464 


3ED0 


LD 


A, ODOH 


3466 


D3F0 


OUT 


(OFOH) ,A 


3468 


CD1835 


CALL 


3518H 


346B 


3E04 


LD 


A, 04H 


346D 


D3E0 


OUT 


(OEOH) ,A 


346F 


3E0B 


LD 


A, OBH 


3471 


D3F0 


OUT 


(OFOH) ,A 


3473 


21AA3 6 


LD 


HL , 3 6 AAH 


3476 


110040 


LD 


DE,4000H 


3479 


014C00 


LD 


BC,004CH 


347C 


EDBO 


LDIR 




347E 


21F936 


LD 


HL,36F9H 


3481 


11E541 


LD 


DE,41E5H 


3484 


014000 


LD 


BC, 0040H 


3487 


EDBO 


LDIR 




3489 


CDC901 


CALL 


01C9H 


348C 


CD8D02 


CALL 


028DH 


348F 


C2AF37 


JP 


NZ,3 7AFH 


3492 


DBFO 


IN 


A, (OFOH) 


3494 


3C 


INC 


A 


3495 


CAAF3 7 


JP 


Z,3 7AFH 


3498 


010000 


LD 


BCOOOOH 


349B 


OB 


DEC 


BC 


349C 


3E81 


LD 


A, 81H 


349E 


D3F4 


OUT 


(0F4H) ,A 


34A0 


78 


LD 


A,B 


34A1 


Bl 


OR 


C 


34A2 


CAAF3 7 


JP 


Z,3 7AFH 


34A5 


DBFO 


IN 


A, (OFOH) 


34A7 


CB57 


BIT 


02H,A 


34A9 


28F0 


JR 


Z,349BH 


34AB 


1E05 


LD 


E,05H 


3 4 AD 


010000 


LD 


BC, OOOOH 


34B0 


DBFO 


IN 


A, (OFOH) 


34B2 


CB4F 


BIT 


01H,A 


34B4 


2011 


JR 


NZ,34C7H 


34B6 


OB 


DEC 


BC 


34B7 


3E81 


LD 


A, 81H 


34B9 


D3F4 


OUT 


(0F4H) ,A 


34BB 


78 


LD 


A,B 


34BC 


Bl 


OR 


C 


34BD 


20F1 


JR 


NZ,34B0H 


34BF 


217702 


LD 


HL, 0277H 


34C2 


CD1B02 


CALL 


021BH 


34C5 


18E4 


JR 


34ABH 


34C7 


ID 


DEC 


E 


34C8 


20E3 


JR 


NZ,34ADH 



RESTORE CHARACTER 

CONTINUE 

SET INTERRUPT MODE 1 

SET STACK 

CLEAR NON-MASKABLE INTERRUPT STATUS 

SET CONTROL BITS. 

SELECT DRIVE 0, DOUBLE DENSITY 

RESET DISK CONTROLLER 

WAIT A BIT. 

SET MASKABLE INTERRUPT 
VECTOR TO 4 04 6H 
RESTORE TO TRACK 

INITIALIZE SOME POINTERS 



CLEAR SCREEN 
CHECK <BREAK> 
NON-DISK IF PRESSED 
DISK CONTROLLER ALIVE? 

NON-DISK IF NOT 

TRY 64K TIMES. 

ANOTHER TIME 

SELECT DRIVE 0, 

DOUBLE DENSITY 

TEST IF READY TO GIVE UP 

GIVE UP ? NON-DISK IF SO 

HOW ARE YOU DOING? 

FOUND TRACK YET? 

LOOP IF NOT 

RE -CHECK 5 TIMES 

TRY UP TO 64K TIMES 

CHECK DISK CONTROLLER 

INDEX MARK? 

SKIP OUT IF FOUND 

ANOTHER TRY 

SELECT DRIVE 0, 

DOUBLE DENSITY 

TRIED ENOUGH? 

LOOP IF NOT 
PRINT "DISKETTE?" 

TRY ALL OVER 

FIND INDEX MARK 

5 TIMES, THEN EXIT 
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34CA 


3E81 


LD 


A, 81H 


34CC 


D3F4 


OUT 


(0F4H) ,A 


34CE 


210235 


LD 


HL,3502H 


34D1 


224A40 


LD 


(404AH) ,HL 


34D4 


3EC3 


LD 


A,0C3H 


34D6 


324940 


LD 


(4049H) ,A 


34D9 


3E80 


LD 


A,80H 


34DB 


D3E4 


OUT 


(0E4H) ,A 


34DD 


01F300 


LD 


BC, 00F3H 


34E0 


210043 


LD 


HL,4300H 


34E3 


3E01 


LD 


A, OIH 


34E5 


D3F2 


OUT 


(0F2H) ,A 


34E7 


3E80 


LD 


A, 80H 


34E9 


D3F0 


OUT 


(OFOH) ,A 


34EB 


CD1835 


CALL 


3518H 


34EE 


DBFO 


IN 


A, (OFOH) 


34F0 


E602 


AND 


02H 


34F2 


CAEE34 


JP 


Z,34EEH 


34F5 


EDA2 


INI 




34F7 


3E81 


LD 


A,81H 


34F9 


F640 


OR 


40H 


34FB 


D3F4 


OUT 


(0F4H) ,A 


34FD 


EDA2 


INI 




34FF 


C3F734 


JP 


34F7H 



SELECT DRIVE 0, 
DOUBLE DENSITY 
SET 

NON-MASKABLE 
INTERRUPT 

VECTOR (JP 3502H) 
SET NMI 

STATUS . 
READ FROM PORT 0F3H 
LOAD FROM 43 00 UP. 
READ SECTOR 1 

READ SINGLE RECORD, NON IBM 
FORMAT, NO DELAY 
WAIT A BIT 
DATA READY 

LOOP IF NOT 
INPUT DATA BYTE 
SELECT DISK 0, 
DOUBLE DENSITY. 

INPUT DATA BYTE 
LOOP 



THE LOOP 34F7 IS EXITED ONLY BY AN INTERRUPT. THE 
DISK CONTROLLER GENERATES AN INTERRUPT WHEN IT IS 
DONE LOADING THE SECTOR. 

EXIT IS TO 3502H, BECAUSE THE DISK CONTROLLER 
GENERATES A NON-MASKABLE INTERRUPT. 



3502 


AF 


XOR 


A 


CLEAR INTERRUPT STATUS 


3503 


D3E4 


OUT 


(0E4H) ,A 




3505 


21ED45 


LD 


HL,45EDH 


SET NEW NON-MASKABLE 11 


3508 


224940 


LD 


(4049H) ,HL 




350B 


CD1835 


CALL 


3518H 


WAIT A BIT 


350E 


DBFO 


IN 


A, (OFOH) 


CHECK STATUS 


3510 


El 


POP 


HL 


FIX STACK 


3511 


E61C 


AND 


ICH 


ERROR? 


3513 


CA0043 


JP 


Z,4300H 


OFF AND RUNNING IF NOT 


3516 


18B2 


JR 


34CAH 


TRY AGAIN IF NOT. 


3518 


C5 


PUSH 


BC 


SHORT WAIT FOR FDC 


3519 


CI 


POP 


BC 




351A 


00 


NOP 






351B 


C9 


RET 






351C 


C24940 


JP 


NZ,4049H 


JUMP IF DISK INTERRUPT 


351F 


DBE4 


IN 


A, (0E4H) 


GET STATUS 


3521 


CB6F 


BIT 


05H,A 


CHECK BIT 5 


3523 


28FA 


JR 


Z,351FH 


LOOP UNTIL SET 


3525 


C30000 


JP 


OOOOH 


RESET COMPUTER 


3528 


FF 






UNUSED GARBAGE 


3529 


119135 


LD 


DE,3591H 


SET RETURN ADDRESS 


352C 


D5 


PUSH 


DE 




352D 


DBEC 


IN 


A, (OECH) 




352F 


3A2240 


LD 


A, (4022H) 


CURSOR ON? 


3532 


B7 


OR 


A 




3533 


2822 


JR 


Z,3557H 


SKIP IF NOT. 
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3535 


3A1C40 


LD 


A, (401CH) 


3538 


B7 


OR 


A 


3539 


201C 


JR 


NZ,3557H 


353B 


211A40 


LD 


HL , 4 lAH 


353E 


35 


DEC 


(HL) 


353F 


2016 


JR 


NZ,3557H 


3541 


3607 


LD 


(HL) ,07H 


3543 


23 


INC 


HL 


3544 


7E 


LD 


A, (HL) 


3545 


E601 


AND 


OIH 


3547 


EEOl 


XOR 


OIH 


3549 


77 


LD 


(HL) ,A 


354A 


2A2 04 


LD 


HL, (4020H) 


354D 


2805 


JR 


Z,3554H 


354F 


3A2340 


LD 


A, (4023H) 


3552 


1802 


JR 


3556H 


3554 


3E20 


LD 


A,20H 


3556 


77 


LD 


(HL) ,A 


3557 


211642 


LD 


HL,4216H 


355A 


35 


DEC 


(HL) 


355B 


CO 


RET 


NZ 


355C 


361E 


LD 


(HL) ,1EH 


355E 


23 


INC 


HL 


355F 


116602 


LD 


DE, 0266H 


3562 


0603 


LD 


B,03H 


3564 


34 


INC 


(HL) 


3565 


lA 


LD 


A, (DE) 


3566 


96 


SUB 


(HL) 


3567 


CO 


RET 


NZ 


3568 


77 


LD 


(HL) ,A 


3569 


23 


INC 


HL 


356A 


13 


INC 


DE 


356B 


10F7 


DJNZ 


3564H 


356D 


23 


INC 


HL 


356E 


34 


INC 


(HL) 


356F 


23 


INC 


HL 


3570 


7E 


LD 


A, (HL) 


3571 


2B 


DEC 


HL 


3572 


3D 


DEC 


A 


3573 


83 


ADD 


A,E 


3574 


5F 


LD 


E,A 


3575 


lA 


LD 


A, (DE) 


3576 


BE 


CP 


(HL) 


3577 


DO 


RET 


NC 


3578 


7E 


LD 


A, (HL) 


3579 


FEIE 


CP 


lEH 


357B 


3006 


JR 


NC,3583H 


357D 


2B 


DEC 


HL 


357E 


7E 


LD 


A, (HL) 


357F 


23 


INC 


HL 


3580 


E603 


AND 


03H 


3582 


C8 


RET 


Z 


3583 


3601 


LD 


(HL) , OIH 


3585 


23 


INC 


HL 


3586 


34 


INC 


(HL) 


3587 


7E 


LD 


A, (HL) 


3588 


D60D 


SUB 


ODH 



CURSOR BLINK? 

SKIP IF NOT 

GET BLINKER COUNT 

UPDATE IT. 

SKIP IF NOT = ZERO 

SET COUNT TO 7 

POINT TO ON/OFF FLAG. 

GET FLAG 

MASK IT. 

TOGGLE IT. 

STORE IT 

GET CURSOR POSITION 

SKIP IF OFF 

GET CURSOR CHARACTER. 

CURSOR = SPACE 

DISPLAY CHARACTER. 

INCREMENT HEARTBEAT 

COUNTER 

SKIP IF NON-ZERO 

SET COUNTER TO lEH 

POINT TO SECONDS 

DE =>#SEC/MIN,#MIN/HR,#HR/DAY. 

SECONDS/MINUTES/HOURS . 

INCREMENT CURRENT TIME. 

GET MAX # UNITS 

COMPARE WITH CURRENT 

SKIP IF DONE 

SAVE DIFFERENCE 

NEXT UNIT 

NEXT MAX 

LOOP UNTIL DONE 

INCREMENT DAY 

GET MONTH 



DE => # DAYS IN MONTH 



GET # DAYS IN MONTH. 

DAY IN MONTH? 

SKIP IF SO. 

GET DAY. 

DAY > 30? 

SKIP TO UPDATE MONTH 

GET YEAR 



LEAP YEAR? 
SKIP IF SO. 
DAY = 1 
NEXT MONTH 

GET MONTH 
MONTH > 13? 
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358A 


D8 


RET 


C 


SKIP IF NOT 


358B 


3601 


LD 


(HL) ,01H 


MONTH = 1 


358D 


2B 


DEC 


HL 


NEXT YEAR 


358E 


2B 


DEC 


HL 




358F 


34 


INC 


(HL) 




3590 


C9 


RET 




SKIP OUT 


3591 


3A1042 


LD 


A, (4210H) 


CLOCK ON? 


3594 


CB4 7 


BIT 


OOH,A 




3596 


C8 


RET 


Z 


RETURN IF NOT 


3597 


3A1642 


LD 


A, (4216H) 


CLOCK JUST UPDATED? 


359A 


FEIE 


CP 


lEH 




359C 


CO 


RET 


NZ 


RETURN IF NOT 


359D 


21353C 


LD 
TIME$ 


HL,3C35H 


DISPLAY TO SCREEN 


3 5A0 


111942 


LD 


DE,4219H 


POINT TO TIME 


3 5 A3 


0E3A 


LD 


C,3AH 


DELIMITER = " : " 


3 5A5 


0603 


LD 


B, 03H 


CONVERT 3 NUMBERS 


3 5A7 


lA 


LD 


A, (DE) 


GET NUMBER 


3 5A8 


IB 


DEC 


DE 


POINT TO NEXT # 


3 5A9 


362F 


LD 


(HL) ,2FH 


FIRST DIGIT = "0" - 1 


3 5AB 


34 


INC 


(HL) 


INCREMENT FIRST DIGIT 


3 5 AC 


D6 0A 


SUB 


OAH 


NUMBER = NUMBER - 10 


3 5AE 


30FB 


JR 


NC , 3 5 ABH 


LOOP IF NUMBER > 


35B0 


C63A 


ADD 


A,3AH 


A = REMAINDER + "0" 


35B2 


23 


INC 


HL 


STORE SECOND DIGIT 


35B3 


77 


LD 


(HL) ,A 




35B4 


23 


INC 


HL 




35B5 


05 


DEC 


B 


DECREMENT # LEFT TO DO 


35B6 


C8 


RET 


Z 


RETURN IF DONE. 


35B7 


71 


LD 


(HL) ,C 


STORE DELIMITER. 


35B8 


23 


INC 


HL 




35B9 


18EC 


JR 
DATE$ 


35A7H 


NEXT NUMBER 


35BB 


111C42 


LD 


DE,421CH 


POINT TO DATE 


35BE 


0E2F 


LD 


C,2FH 


DELIMITER = "/" 


35C0 


18E3 


JR 


3 5A5H 


CONVERT DATE. 






INTERRUPT HANDLER 




35C2 


F5 


PUSH 


AF 


SAVE STATUS 


35C3 


DBEO 


IN 


A, (OEOH) 


READ INTERRUPT LATCH. 


35C5 


IF 


RRA 




BIT LOW? 


35C6 


D26533 


JP 


NC,3365H 


JUMP IF SO. 


35C9 


IF 


RRA 




BIT 1 LOW? 


3 5CA 


D26933 


JP 


NC,33 69H 


JUMP IF SO. 


35CD 


C5 


PUSH 


BC 


SAVE REGISTERS 


35CE 


D5 


PUSH 


DE 




35CF 


E5 


PUSH 


HL 




35D0 


DDE5 


PUSH 


IX 




35D2 


FDE5 


PUSH 


lY 




3 5D4 


21F135 


LD 


HL,35F1H 


SET RETURN ADDRESS 


35D7 


E5 


PUSH 


HL 




35D8 


IF 


RRA 




BIT 2 LOW? (CLOCK INTERRUPT 


35D9 


D24640 


JP 


NC,4046H 


JUMP IF SO. 


35DC 


IF 


RRA 




BIT 3 LOW? 


3 5DD 


D23D40 


JP 


NC,403DH 


JUMP IF SO. 
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35E0 


IF 


RRA 




BIT 4 LOW? 


35E1 


D20642 


JP 


NC,4206H 


JUMP IF SO. 


35E4 


IF 


RRA 




BIT 5 LOT? 


35E5 


D20942 


JP 


NC,4209H 


JUMP IF SO. 


35E8 


IF 


RRA 




BIT 6 LOW? 


35E9 


D24040 


JP 


NC,4040H 


JUMP IF SO. 


35EC 


IF 


RRA 






3 5ED 


D24340 


JP 


NC,4043H 


BIT 7 LOW? JUMP IF SO. 


35F0 


El 


POP 


HL 


DISCARD RETURN ADDRESS 


35F1 


FDEl 


POP 


lY 


RESTORE REGISTERS 


35F3 


DDEl 


POP 


IX 




35F5 


El 


POP 


HL 




35F6 


Dl 


POP 


DE 




35F7 


CI 


POP 


BC 




35F8 


Fl 


POP 


AF 




35F9 


FB 


EI 




RE -ENABLE INTERRUPTS. 


3 5FA 


C9 


RET 




DONE. 






RS-232 


INITIALIZATION ROUTINE 


35FB 


F3 


DI 




DISABLE INTERRUPTS 


35FC 


DBEA 


IN 


A, (OEAH) 


CHECK RS-2 32 STATUS 


35FE 


FEFF 


CP 


OFFH 


NON-EXISTENT? 


3600 


2838 


JR 


Z,3 63AH 


SKIP IF SO. 


3602 


AF 


XOR 


A 


RESET RS-232 


3603 


D3E8 


OUT 


(0E8H) ,A 




3605 


DD7E03 


LD 


A, (IX+03H) 


GET BAUD RATE CODE. 


3608 


D3E9 


OUT 


(0E9H) ,A 


SET BAUD RATES 


360A 


DD7E04 


LD 


A, (IX+04H) 


GET CONFIGURATION 


360D 


B7 


OR 


A 


NULL? 


360E 


282A 


JR 


Z,3 63AH 


SKIP IF SO. 


3610 


D3EA 


OUT 


(OEAH) ,A 


SET CONFIGURATION 


3612 


FD21E541 


LD 


IY,41E5H 


lY => RS-232 INPUT DCB . 


3616 


CD4436 


CALL 


3644H 


CLEAR OPTIONS 


3619 


DD7E05 


LD 


A, (IX+05H) 


GET WAIT SWITCH 


361C 


B7 


OR 


A 




361D 


2804 


JR 


Z,3623H 


SKIP IF NOT SET 


361F 


FDCB04CE 


SET 


OIH, (IY+04H) 


SET WAIT FLAG. 


3623 


FDCB04D6 


SET 


02H, (IY+04H) 


SET ACTIVE FLAG 


3627 


FD21ED41 


LD 


IY,41EDH 


lY => RS-2 32 OUTPUT DCB 


362B 


B7 


OR 


A 


CHECK WITH FLAG 


362C 


2804 


JR 


Z,3632H 


SKIP IF NO WAIT 


362E 


FDCB04CE 


SET 


OIH, (IY+04H) 


SET WAIT FLAG. 


3632 


FDCB04D6 


SET 


02H, (IY+04H) 


SET ACTIVE FLAG. 


3636 


DBE8 


IN 


A, (0E8H) 


GET STATUS 


3638 


FB 


EI 




LISTEN FOR INTERRUPTS 


3639 


C9 


RET 




DONE 


363A 


AF 


XOR 


A 


CLEAR A 


363B 


0604 


LD 


B, 04H 


4 PORTS 


363D 


0EE8 


LD 


C, 0E8H 


SMARTING AT 0E8 


363F 


ED79 


OUT 


(C) ,A 


CLEAR PORT 


3641 


OC 


INC 


C 


NEXT PORT 


3642 


lOFB 


DJNZ 


363FH 


LOOP UNTIL DONE 


3644 


21E841 


LD 


HL,41E8H 


CLEAR INPUT OPTIONS 


3647 


0603 


LD 


B, 03H 


3 BYTES 


3649 


3600 


LD 


(HL) ,00H 


CLEAR BYTE 


364B 


23 


INC 


HL 


NEXT BYTE 


364C 


lOFB 


DJNZ 


3649H 


LOOP UNTIL DONE 
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364E 


21F041 


LD 


HL,41F0H 




CLEAR OUTPUT OPTIONS 


3651 


0603 


LD 


B,03H 




3 BYTES 


3653 


3600 


LD 


(HL) , OOH 




CLEAR BYTES 


3655 


23 


INC 


HL 




NEXT BYTE 


3656 


lOFB 


DJNZ 


3653H 




LOOP UNTIL DONE 


3658 


18DC 


JR 


3636H 




RETURN 






RS-232, 


, INPUT ROUTINE 


3 6 5A 


DD21E541 


LD 


IX,41E5H 




IX => DCB FOR RS-2 32 INPUT 


365E 


AF 


XOR 


A 




CLEAR INPUT 


365F 


DD7703 


LD 


(IX+03H) , 


,A 


CLEAR BUFFER 


3662 


DDCB0456 


BIT 


02H, (IX+( 


34H) 


RS-2 32 ACTIVE? 


3666 


C8 


RET 


Z 




RETURN IF NOT 


3667 


DBEA 


IN 


A, (OEAH) 




GET BIT 1, (IX+4) WAIT 


3669 


CB7F 


BIT 


07H,A 






366B 


200D 


JR 


NZ , 3 6 7 AH 






366D 


DDCB044E 


BIT 


OIH, (IX+( 


34H) 




3671 


C8 


RET 


Z 




RETURN IF NOT. 


3672 


CD8D02 


CALL 


028DH 




CHECK <BREAK>. 


3675 


28F0 


JR 


Z,3667H 




WAIT IF NOT PRESSED. 


3677 


C30342 


JP 


4203H 




EXIT IF PRESSED. 


367A 


DBEB 


IN 


A, (OEBH) 




GET DATA 


367C 


DD7703 


LD 


(IX+03H) , 


,A 


SAVE IN BUFFER 


367F 


C9 


RET 






DONE 






RS-232 


OUTPUT ROUTINE 


3680 


DD21ED41 


LD 


IX,41EDH 




IX => DCB FOR RS-232 OUTPUT 


3684 


DDCB0456 


BIT 


02H, (IX+( 


D4H) 


RS-232 ACTIVE? 


3688 


C8 


RET 


Z 




RETURN IF NOT 


3689 


DBEA 


IN 


A, (OEAH) 




GET STATUS 


368B 


CB77 


BIT 


06H,A 




READY TO SEND? 


368D 


200D 


JR 


NZ,369CH 




SKIP IF SO. 


368F 


DDCB044E 


BIT 


OIH, (IX+( 


D4H) 


WAIT? 


3693 


C8 


RET 


Z 




RETURN IF NOT 


3694 


CD8D02 


CALL 


028DH 




CHECK <BREAK> 


3697 


28F0 


JR 


Z,3689H 




WAIT IF NOT PRESSED 


3699 


C30342 


JP 


4203H 




EXIT IF PRESSED 


369C 


DD7E03 


LD 


A, (IX+03H) 


GET BUFFER CHAR. 


369F 


B7 


OR 


A 




NULL? 


36A0 


2001 


JR 


NZ,3 6A3H 




SKIP IF CHAR IN BUFFER. 


3 6A2 


79 


LD 


A,C 




GET CHAR FROM DISPATCHER 


3 6 A3 


D3EB 


OUT 


(OEBH) ,A 




SEND CHAR. 


3 6A5 


DD360300 


LD 


(IX+03H) , 


, OOH 


ZERO BUFFER 


36A9 


C9 


RET 






DONE 



36AA C3961CC3781DC3901CC3D925C90000 INITIAL VECTORS AND DCBS FOR 

C90000C31830012430000107000007 RAM 4000H-404BH. TAPE & DISK 

73 04 03C0 0B0 06C2 0343 010 0FF52 

C30050C70000AFC900AAAAAAAAAAAA 

AAC3FA3 5C3FA3 5C3FA3 5C32 93 5C7 

36F5 00000000 UNUSED 



36F9 011E30000000524902213000000052 INITIAL VECTORS AND DCBS FOR 

4F021B30556CFF524E0000FFFF0000 RAM 41E5H-4224H TAPE & DISK. 

C32E02C3FA3 5C3FA3 54132 03 322 8 03 

3C04 00001E331C0C000E02 023 93700 

OOOOOOFF 
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I/O RE -ROUTER 



3739 
373C 
373E 
3740 
3743 
3746 
3747 
3748 
374B 
374D 
374F 
3752 
3755 
3756 
3757 
3758 
375B 
375D 
375E 
3761 
3764 
3766 
3767 
3768 
3769 
376A 
376B 
376C 
376F 
3772 
3775 
3778 
377B 
377D 
377F 
3782 
3784 
3787 
3789 
378B 
378E 
3791 
3792 
3795 
3796 



DD7E03 

FE52 

2003 

DD7E04 

CD5E37 

CO 

E5 

DD7E05 

FE52 

2003 

DD7E06 

CD5E37 

EB 

El 

CO 

010300 

EDBO 

C9 

216C37 

OlOFOO 

EDBl 

CO 

7E 

23 

66 

6F 

C9 

4B1540 

441D40 

502540 

49E541 

4FED41 

FE22 

2 0A 

3A9F40 

EEOl 

329F40 

3E22 

FE3A 

C2AA06 

3A9F4 

IF 

DAA8 06 

17 

C3A306 



LD 

CP 

JR 

LD 

CALL 

RET 

PUSH 

LD 

CP 

JR 

LD 

CALL 

EX 

POP 

RET 

LD 

LDIR 

RET 

LD 

LD 

CPIR 

RET 

LD 

INC 

LD 

LD 

RET 

"K" 

"D" 
11 p 11 

II T II 

II 0" 

CP 

JR 

LD 

XOR 

LD 

LD 

CP 

JP 

LD 

RRA 

JP 

RLA 

JP 



A, (IX+03H) 

52H 

NZ,3743H 

A, (IX+04H) 

375EH 

NZ 

HL 

A, (IX+05H) 

52H 

NZ,3752H 

A, (IX+06H) 

375EH 

DE,HL 

HL 

NZ 

EC, 0003H 



HL,376CH 
BC, OOOFH 

NZ 

A, (HL) 

HL 

H, (HL) 

L,A 

4015H 
4 01DH 
4025 
41E5 
41ED 
22H 

NZ,3789H 
A, (409FH) 
OIH 

(409FH) ,A 
A,22H 
3 AH 

NZ , 6 AAH 
A, (409FH) 

C, 06A8H 

6 ASH 



GET 1ST CHARACTER OF DESTINATION. 

IS IT A "R"? 

SKIP IF NOT. 

GET 2ND CHARACTER OF DESTINATION. 

GET DCB ADDRESS. 

RETURN IF NOT FOUND 

SAVE IT. 

GET 1ST CHARACTER OF SOURCE. 

IS IT A "R"? 

SKIP IF NOT 

GET 2ND CHARACTER OF SOURCE. 

GET DCB ADDRESS. 

MOVE TO SOURCE DCB. 

FROM DESTINATION DCB 

RETURN IF NOT FOUND 

MOVE 3 BYTES 

DONE 

POINT TO TABLE 

WHICH IS 15 BYTES LONG 

SEARCH FOR GIVEN CHARACTER. 

RETURN IF NOT FOUND 

LOAD DCB ADDRESS 



DONE 

DEVICE LABELS 

& DCB ADDRESSES. 



BASIC TIMES (DATE$+" "+TIME$) 



3799 D7 
379A E5 
379B 3E11 
379D CD5728 
3 7A0 2AD44 
3 7A3 CDBB3 5 
37A6 3620 
3 7A8 2 3 
3 7A9 CDA03 5 



RST 

PUSH 

LD 

CALL 

LD 

CALL 

LD 

INC 

CALL 



lOH 
HL 

A, IIH 
2857H 
HL, (40D4H) 
35BBH 
(HL) ,20H 
HL 
35A0H 



GET NEXT CHARACTER 
SAVE POSITION 
CREATE A 17 BYTE 

STRING 
GET POINTER 
LOAD DATE$ 
SPACE APART 
MOVE OVER 
LOAD TIME$ 
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3 VAC 


C38428 


JP 


2884H 


FINISH UP & RETURN 


3 7AF 


CDB537 


CALL 


37B5H 


SET CASSETTE SPEED 


37B2 


C37500 


JP 


0075H 


GO TO NON-DISK INITI 




FB 


SET CASSETTE BAUD 


RATE ($SETCAS) 


37B5 


EI 




ENABLE INTERRUPTS 


37B6 


CDD737 


CALL 


37D7H 


NEW LINE 


37B9 


21F637 


LD 


HL,37F6H 


PRINT "CASS?" 


37BC 


CD1B02 


CALL 


021BH 




37BF 


CD4900 


CALL 


0049H 


LISTEN FOR RESPONSE 


37C2 


FEOD 


CP 


ODH 


CARRIAGE RETURN 


37C4 


280E 


JR 


Z,37D4H 


DEFAULT HIGH IF SO. 


37C6 


F5 


PUSH 


AF 


SAVE AF. 


37C7 


CD33 00 


CALL 


0033H 


DISPLAY RESPONSE 


3 7CA 


Fl 


POP 


AF 


RESTORE AF. 


37CB 


FE4 8 


CP 


48H 


"H" 


37CD 


2805 


JR 


Z,37D4H 


HIGH SPEED IF SO. 


37CF 


FE4C 


CP 


4CH 


"L" 


37D1 


20E2 


JR 


NZ,37B5H 


RETRY IF NOT 


37D3 


AF 


XOR 


A 


LOW SPEED IF SO. 


37D4 


321142 


LD 


(4211H) ,A 


SAVE SPEED BYTE 


37D7 


3E0D 


LD 


A, ODH 


NEXT LINE 


37D9 


C33300 


JP 


0033H 


DONE 


37DC 


213030 


LD 


HL,3030H 


SET TIME$ 


37DF 


227741 


LD 


(4177H) ,HL 


VECTOR. 


37E2 


C32E02 


JP 


022EH 


CONTINUE 


37E5 


AAAAAA3F3F 




UNUSED 


3 7EA 


01 






COMPUTER VERSION 


37EB 


CD1B02 


CALL 


021BH 


PRINT MESSAGE 


37EE 


210202 


LD 


HL,0202H 


PRINT "(C) 8 TANDY" 


37F1 


CD1B02 


CALL 


021BH 




37F4 


18E6 


JR 


3 7DCH 


CONTINUE 


37F6 


OE 






TURN ON CURSOR 


37F6 


436173733F20 


"CASS? " 


MESSAGE 


37FC 


03 






KEEP CURSOR FIXED 


37FE 


AAAA 






UNUSED 


****** END OF 


READ-ONLY MEMORY ****** 



4000 
4003 
4006 
4009 
400C 
400E 
4012 



JP 

JP 

JP 

JP 

RET 

RET 

JP 3018H 
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TAPE RAM 
08H 



1C96H 
1D78H 
1C90H 
25D9H 



RST 08H SYNTAX CHECK 

EST lOH GET NEXT CHARACTER 

RST 18H CP, HL, DE 

RST 2 OH GET CURRENT TYPE 

RST 2 8H UNUSED 

RST 3 OH UNUSED 

RST 3 8H INTERRUPT VECTOR 



KEYBOARD DCB 

4 015 TYPE = 1 = READ ONLY 

4016 DRIVER ADDRESS (3024H) 

4 018 RIGHT SHIFT TOGGLE 

4 019 CAPS LOCK TOGGLE 

4 01A CURSOR BLINK COUNT 

401B CURSOR BLINK STATUS (Z 

401C CURSOR BLINK SWITCH (Z 



OFF 

BLINK 



NZ 
NZ 



ON) 

NO BLINK) 



VIDEO DCB 

401D TYPE = 7 = READ/WRITE 

401E DRIVER ADDRESS (0473H) 

4 02 CURSOR POSITION 

4022 CURSOR ON/OFF FLAG (Z = OFF NZ = 

4 023 CURSOR CHARACTER (DEFAULT OBOH) 

4024 TABS/SPECIAL CHARACTERS SWITCH (Z 



CHARACTER UNDERCURSOR) 



TABS) 



4025 
4026 
4028 
4029 
402A 
402B 
402C 
402D 
4030 
4033 

4036 
403D 
4040 
4043 
4046 
4049 
404C 



PRINTER DCB 

TYPE = 6 = WRITE 
DRIVER ADDRESS (03C2H) 

# LINES/PAGE 

# LINES PRINTED + 1 

# CHARACTERS PRINTED + 1 
PRINTED WIDTH - 2 (255 = INFINITE) 



JP 5000H 
RST 
XOR A 
RET 

KEYBOARD BI 
JP 3 5FAH 
JP 3 5FAH 
JP 3 5FAH 
JP 3 5A9H 
RST 

UNUSED (36 
STACK SPACE 



UNUSED DOS VECTOR 



T IMAGE (7 BYTES) 
INTERRUPT VECTOR 3 (UNUSED) 
INTERRUPT VECTOR 6 (UNUSED) 
INTERRUPT VECTOR 7 (UNUSED) 
INTERRUPT VECTOR 2 (CLOCK) 
NMI VECTOR (RESET IF SO) 

BYTES) 
DURING BOOTSTRAP 



DIVISION SUPPORT ROUTINE 



4080 SUB (4081H) 
LD L, A 
LD A,H 
SBC (4085H) 
LD H,A 
LD A,B 
SBC (4089H) 
LD B,A 
LD A, (408CH) 



L = L - LSB 

H = H - NMSB - CARRY 

B = B - NSB - CARRY 

A = OVERFLOW COUNTER 



RET 
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DONE 



NET RESULT: 



BHL = BHL - (ACCUM) 



408E 
4090 
4093 

4096 

4099 
409A 
409B 
409C 
409D 
409E 
4 0A0 
4 0A2 
4 0A4 
4 0A6 
4 0A7 
4 0A9 
4 0AA 



ADDRESS OF USR SUBROUTINE 
RANDOM NUMBER SEED 2 



INPUT SUPPORT 
ROUTINE 
OUT SUPPORT 
ROUTINE 



IN A, (4094H) 

RET 

OUT (4097H) ,A 

RET 

INKEY$ STORAGE 

ERR STORAGE 

PRINTER COLUMN POSITION 

DEVICE ROUTING FLAG 

DISPLAY LINE LENGTH 

VIDEO DISPLAY WIDTH 

TOP OF FREE MEMORY 

CURRENT LINE NUMBER 

DATA POINTER 

POS STORAGE 

ADDRESS OF KEYBOARD BUFFER 

CASSETTE INPUT FLAG (Z=TAPE INPUT 

RANDOM NUMBER SEED 1 



(-1=TAPE, 0=VIDEO, +1=PRINTER) 



ACCUM 





INTEGER 


STRING 


S.P. 


D.P. 


411C 


UNUSED 


UNUSED 


UNUSED 


UNUSED 


411D 


UNUSED 


UNUSED 


UNUSED 


LSB 




UNUSED 


UNUSED 


UNUSED 


NMSB 




UNUSED 


UNUSED 


UNUSED 


NMSB 




UNUSED 


UNUSED 


BIT BUCKET 


NMSB 


4121 


LSB 


LENGTH 


LSB 


NMSB 




UNUSED 


LSB 


NMSB 


NMSB 




UNUSED 


MSB 


MSB 


MSB 


4124 


UNUSED 


UNUSED 


EXP 


EXP 


4125 


SIGN 


UNUSED 


SIGN 


SIGN 



NOTE: IN SOME STRING OPERATIONS, 
4121 - 4122 POINTS TO AN ENTRY 
IN THE STRING POINTER WORKSPACE 



ACCUM2 





INTEGER S.P. 


D.P. 




4126 


UNUSED UNUSED 


BIT BUCKET 


4127 


LSB LSB 


LSB 






MSB NMSB 


NMSB 






MSB 


NMSB 






EXP 


NMSB 
NMSB 
NMSB 
MSB 




412F 




EXP 




4130 


ASCII CONVERSION WORKSPACE (25 


BYTES 


414A 


WORKSPACE FOR D.P. 


DIVISION (8 


BYTES 



4152 
4155 
4158 
415B 
415E 
4161 
4164 
4167 
416A 
416D 
4170 
4173 
4176 
4179 
417C 
417F 
4182 
4185 



4188 
418B 
418E 
4191 
4194 
4197 
419A 
419D 
41A0 
41 A3 
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INC. 



DISK BASIC VECTOR 



JP 
JP 
JP 
JP 
JP 
JP 
JP 
JP 
JP 
JP 
JP 
JP 
JP 
JP 
JP 
JP 
JP 
JP 



012DH 
012DH 
012DH 
012DH 
012DH 
012DH 
012DH 
012DH 
012DH 
012DH 
012DH 
012DH 
3030H 
012DH 
012DH 
012DH 
012DH 
012DH 



CVI 

FN 

CVS 

DEF 

CVD 

EOF 

LOC 

LOF 

MKI$ 

MKS$ 

MKD$ 

CMD 

TIMES$ 

OPEN 

FIELD 

GET 

PUT 

CLOSE 



DISK BASIC VECTORS (CONT) 



JP 012DH 
JP 012DH 
JP 012DH 
JP 012DH 
JP 012DH 
JP 012DH 
JP 012DH 
JP 012DH 
JP 012DH 
JP 012DH 



LOAD 

MERGE 

NAME 

KILL 

& 

LSET 

RSET 

INSTR 

SAVE 

LINE 



L3 


ERROR 


L3 


ERROR 


L3 


ERROR 


L3 


ERROR 


L3 


ERROR 


L3 


ERROR 


L3 


ERROR 


L3 


ERROR 


L3 


ERROR 


L3 


ERROR 


L3 


ERROR 


L3 


ERROR 


NO 


ERROR 


L3 


ERROR 


L3 


ERROR 


L3 


ERROR 


L3 


ERROR 


L3 


ERROR 


L3 


ERROR 


L3 


ERROR 


L3 


ERROR 


L3 


ERROR 


L3 


ERROR 


L3 


ERROR 


L3 


ERROR 


L3 


ERROR 


L3 


ERROR 


L3 


ERROR 



41A6 
41A9 
41 AC 
41AF 
41B2 
41B5 
41B8 
41BB 
41BE 
41C1 
41C4 
41C7 
41CA 
41CD 
41D0 
41D3 
41D6 
41D9 
41DC 
41E2 



DOS LINKS 

RET 
RET 
RET 
RET 
RET 
RET 
RET 
RET 
RET 
RET 
RET 
RET 
RET 
RET 
RET 
RET 
RET 
RET 
RET 
RET 



LINK FOR ERROR MESSAGE 

LINK FOR USR N 

LINK FOR READY 

LINK FOR INKEY$ 

LINK AFTER LINE ENCODE 

LINK AFTER PROGRAM UPDATE 

LINK AFTER PROGRAM CLEAR 

LINK DURING NEW + END 

LINK DURING I/O RESET 

LINK DURING SYSTEM OUTPUT 

LINK DURING KEYBOARD WAIT 

LINK FOR RUN EXP 

LINK FOR SEQUENTIAL FILE OUTPUT 

LINK BETWEEN PRINT ITEMS 

LINK DURING NEW LINE ON VIDEO 

LINK DURING PRINT OUTPUTTING 

LINK AT START OF INPUT 

LINK FOR MID$ ON LEFT OF "=" 

LINK AT START OF READ SCAN 

LINK FOR SYSTEM AUTO -START 
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TAPE RAM 
RS-232 INPUT DCB 
4 IE 5 TYPE = 1 = READ ONLY 
41E6 DRIVER ADDRESS (301EH) 
41E8 INPUT BUFFER (1 CHARACTER) 
41E9 BIT 2 = DRIVER ON/OFF BIT 1 = WAIT/NO WAIT 

RS-232 OUTPUT DCB 

41ED TYPE = 2 = WRITE ONLY 

41EE DRIVER ADDRESS (3 021H) 

41F0 OUTPUT BUFFER (1 CHARACTER) 

41F1 BIT 2 = DRIVER ON/OFF BIT 1 = WAIT/NO WAIT 

RS-232 INITIALIZATION DCB 

41F5 TYPE = 2 = WRITE ONLY 
41F6 DRIVER ADDRESS (301BH) 
41F8 BAUD RATE CODE 
41F9 CONFIGURATION CODE 
41FA WAIT/NO WAIT SNITCH 

KEYBOARD SCAN DATA 

41FD SAVED POSITION IN SCAN 
41FE SAVED IMAGE AT POSITION 
4 IFF REPEAT DELAY COUNT 
42 01 REPEAT DELAY COUNTER 

CASSETTE INFO 

4203 JP 022EH BREAK VECTOR FOR TAPE/RS-232 

4206 JP 35FAH INTERRUPT VECTOR # 4 

4209 JP 35FAH INTERRUPT VECTOR # 5 
42 OC TAPE WRITE VECTOR 

42 OE TAPE READ VECTOR 

4210 BIT MASK FOR PORT OECH 

4211 CASSETTE BAUD RATE SELECT (NZ = 1500 BAUD) 

4212 CASSETTE BLINKER COUNTER 

4213 DEFAULT INTERRUPT VECTOR SETTING 

4214 # VIDEO LINES TO PROTECT 

4215 UNUSED IN TAPE SYSTEM 

CLOCK DATA 

4216 HEARTBEAT COUNTER 

4217 SECOND 

4218 MINUTE 

4219 HOUR 
421A YEAR 
4 2 IB DAY 
4210 MONTH 

I/O ROUTER DCB 

4 2 ID TYPE = 2 = WRITE ONLY 

421E DRIVER ADDRESS (3739H) 

422 DESTINATION DEVICE NAME 

4222 SOURCE DEVICE NAME 

4224 UNUSED BY ROUTER, CONTROL KEY FLAG. 
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THE FOLLOWING INFORMATION IS EXTRA INPUT FROM MANY PEOPLE AND HAS NOT BEEN 
COMPLETED YET, AND WILL NOT BE UPDATED TO ANY USER, BUT WE THOUGHT THAT IT MAY 
HELP SOMEONE TO HAVE THIS INFORMATION AS IT STANDS. 

EO MASKABLE INTERRUPT LATCH. DIRECTS JUMPS 
BITS 

=> 3365 CASSETTE ROUTINES 

1 => 3369 CASSETTE ROUTINES 

2 => 4 046 CURSOR BLINK & CHECK 

3 => 403D 

4 => 4206 

5 => 4209 

6 => 4040 

7 => 4043 

E4 NON-MASKABLE INTERRUPT LATCH 
BITS 

1 
2 
3 
4 
5 
6 
7 

E8 RS-232 STATUS REGISTER & MASTER RESET 
OUT: ANY BYTE RESETS INTERFACE 



E9 



IN: 




BITS 





1 
2 


UNUSED 


UNUSED 


3 


UNUSED 


4 


RI RING INDICATOR 


5 


CD CARRIER DETECT 


6 


DSR DATA SET READY 


7 


CTS CLEAR TO SEND 


RS-232 BAUD RATE SELECT & SENSE SWITCHES 


IN: 


SENSE SWITCHES 


BITS 




7 


PARITY = ODD 1 = EVEN 


6 


WORD LENGTH SELECT IN BITS 


5 


00 = 5 01 = 6 


4 


STOP BITS = BIT 1=2 BITS 


3 


PARITY = ENABLED 1 = DISABLED 


2 


BAUD RATE SELECT 


1 


BAUD RATE SELECT 





BAUD RATE SELECT 


OUT: 


BAUD RATE SELECT 


BITS 


- 3 SELECT RECEIVE RATE 




4-7 SELECT TRANSMIT RATE 



10 = 7 11 



EA 



RS 
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-232 UART CONTROL REGISTER & STATUS REGISTER 



IN: 


STATUS REGISTER 






BITS 








7 


DATA READY 


1 = 


= TRUE 


6 


DATA SENT 


1 = 


= TRUE 


5 


OVERRUN 


1 = 


= TRUE 


4 


FRAMING ERROR 


1 = 


= TRUE 


3 


PARITY ERROR 


1 = 


-- TRUE 


2 


UNUSED 






1 


UNUSED 









UNUSED 






OUT: 


CONTROL REGISTER 






BITS 








7 


PARITY = 


ODD 


1 


6 


WORD LENGTH 






5 


SELECT 






4 


STOP BITS 






3 


PARITY ENABLE 






2 


BREAK 






1 


REQUEST TO END 









DATA TERMINAL READY 





EVEN 



EB RS-2 32C DATA REGISTER 
IN: RECEIVED DATA 
OUT: TRANSMIT DATA 



EC 



ISCELLANEOUS CONTROLS (IMAGE 4210H) 
ITS OUT ONLY 



CASSETTE MOTOR = OFF 1 = ON 
DUAL SIZE VIDEO = OFF 1 = ON 
SPECIAL CHARACTER SELECT = KANA 



1 = MISC. 



FO FDC STATUS REGISTER SEE FLOPPY DISK 

Fl FDC TRACK REGISTER CONTROLLER MANUAL 

F2 FDC SECTOR REGISTER 

F3 FDC DATA REGISTER 



F4 



DISK 

BITS 



1 

2 

3 

4 

5 

6 

7 



DRIVE/DENSITY SELECT OUT ONLY 

DRIVE SELECT 

DRIVE 1 SELECT 

DRIVE 2 SELECT 

DRIVE 3 SELECT 



DENSITY SELECT 



SINGLE 1 



DOUBLE 



F8 



FF 
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PRINTER PORT 




IN: 


PRINTER STATUS 




BITS 









UNUSED 




1 


UNUSED 




2 


UNUSED 




3 


UNUSED 




4 


NOT PRINTER FAULT 




5 


DEVICE SELECT 




6 


NOT OUT OF PAPER 




7 


NOT BUSY 




OUT: 


DATA TO PRINT 




CASSETTE PORT 




IN: 


READ STATUS 




BITS 













1 






2 






3 






4 






5 






6 






7 


DATA BIT = LOW 


1 = ] 


OUT: 


RECORD LEVEL 




BITS 









LEVEL SELECT = 


= 0.85V 


1 


01 = 


= 0.46V 


2 






3 






4 






5 






6 






7 







HIGH (LATCHED) 



10 = O.OV 



